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CE QUE VOUS OFFRE 
NOTRE SERVICE SUR MINITEL 


Nous disposons d'un service MINITEL 
que de nombreux lecteurs connaissent bien maintenant. 
Outre l'information diffusée, 
il devient un instrument de dialogue permanent 
entre vous et notre rédaction. 


NOS REVUES 


Dès que la revue est chez l'imprimeur, le 
sommaire apparaît sur la page concernée. 


Le lecteur peut également y trouver la liste 
des produits spécifiques à sa revue (dis- 
quettes, cassettes, livres). 


LA BOITE AUX LETTRES 


Déjà utilisée par des lecteurs de CPC et de 
Mégahertz, elle vous permet de poser vos 
questions techniques chaque jour — 24h sur 
24h — sans avoir à attendre que la ligne de 
téléphone soit libre les mercredi et vendredi. 


Les correspondances sont relevées chaque 
jour | 

De plus, vous pouvez, entre lecteurs, écrire, 
recevoir des messages, faire des échanges 
techniques. 


Les boîtes à lettres sont ouvertes sous votre 
pseudo aux normes télématiques. 


LES PETITES ANNONCES 


24h sur 24h, 7 jours sur 7, elles sont acces- 
sibles. Nous venons d'améliorer ce service. 
Depuis le 1er janvier 1987, c'est chaque 
jour que les annonces sont mises en place. 
De plus, vous pouvez DIRECTEMENT pas- 
ser vos annonces sur le serveur. 


DES INFORMATIONS 


Des informations sont à votre disposition et 
régulièrement mises à jour, ainsi que les 
éventuelles corrections de listings en cas 
d'erreur. 


NOS PRODUITS 


Nos nombreux revendeurs peuvent utiliser 
le MINITEL pour passer commande. L'en- 
semble des produits disponibles est présen- 
té. Nous avons simplifié au maximum la pro- 
cédure. Lecteurs et revendeurs peuvent aus- 
si vérifier si le produit est disponible et quel 
est son prix de vente public. 
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DISCOLOGY 


La performance au service de votre Amstrad. 
Editeur+ Copieur+ Exploreur+ d 


version” pur 7 14 
Ultra rapide : 150 Ko de Langage Machine, Nowelle voire Armsf 
Fenêtres, Menus déroulants, Aide intégrée, id 
Manuel de 24 pages + Additif technique. penfommate? 

ES = Un Editeur secteur unique qui vous 


TEU permet de visualiser et de modifier 
L° ED Le contenu de toute disquette, 


qu'elle soit protégée ou non. 


Quatre modes d'édition combinant Ascii, hexa, décimal, octal, binaire. 
’ , , 


Des capacités exceptionnelles que vous pouvez exploiter immédiatement : 
e Désassemblage direct des programmes en Langage Machine 
e Listage automatique des programmes Basic 
e Les outils de bureau : ciseaux, colle, calculatrice mathématique 


Toutes Les possibilités à La portée du débutant comme de l'expert : 
e Récupérer une disquette endomagée où un programme effacé 
(: Explorer un directory, Le reparer, le modifier 
e Localiser des fichiers, les cacher, les visualiser, les modifier 


Comme l'Editeur, il reconnait 99 pistes, toutes 


per la lei 0 titre 
Hele 41 du 2 juillet 190, n'autorise 
we copie de sauvegardé 
emne | 


Enfin la copie de sauvegarde Que toutes vos 2 y = 
L disquettes (et cassettes) protégées où pas. rK 
LE C æ Er 


les densites d'écriture, les pistes déformatées, les AL Net pers Areas 
VEAU / secteurs non standard, effacés ou de taille anormale. Mur EE Lo. 
La copie intégrale 2 a et À 
l nie : Des performances inédites à votre service : cm 2 
plus puissa à D ises: 


encore e Réparation automatique des secteurs endomagés 
e Gestion automatique des extensions mémoire 
e Une fonction catalogue qui permet de copier des 
fichiers séparément sur cassette ou disquette. 


Voyage au centre de La disquette... 
REUR L'Exploreur de Discology fournit toutes 

9 EXPLO les informations sur la disquette : 
L Formatage, densité d'écriture, caractéristiques des 


ea é vœant: HS 

secteurs, secteurs "plantés", plan d'occcupation des . Wim pra 8 

NOUVEAU les pistes fichiers sur la disquette. HN NN Um ace Me Jin 

Découvrez lE :<quettes: EURE "pu 
chées de vos disq Un outil passionnant pour découvrir tous Les LIN M UM! 
ca secrets de vos disquettes et du controleur disque. 1. LR 


Pour tous les "cracks'!' de l'Amstrad et ceux qui 
veulent le devenir. 


Discology est disponible sur disquette pour Amstrad CPC chez tous les très bons revendeurs. Vous pouvez aussi Le commander 
directement sans frais de port supplémentaires à : MERIDIEN INFORMATIQUE, 5 et 7, La Canebière - 13001 Marseille. 

e Master Save est toujours disponible au prix de 190 F. Il reprend les caractéristiques du Copieur de Disquette de Discology 
e Si vous désirez recevoir Discology et que vous possédez déja Master Save, vous ne payez que la différence. 


ON DE COMMANDE 


O JE DESIRE RECEVOIR DISCOLOGY AU PRIX DE 350 F JERSIOÿ 


O JE DESIRE RECEVOIR MASTER SAVE AU PRIX DE 190 F 3.0 _ 
O JE POSSEDE DEJA MASTER SAVE ET JE DESIRE RECEVOIR DISCOLOGY. JE JOINS MA DISQUETTE MASTER SAVE ET JE NE PAYE QUE 160 F 
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MON REGLEMENT : © CHEQUE QUE JE JOINS (LE PORT EST GRATUIT) © CONTRE REMBOURSEMENT (J'AJOUTE 25 F DE FRAIS DE PORT) 
NOM 5 | PRENOM : 
ADRESSE : L E 
CODE POSTAL : VILLE : TEL (facultatif) : 


A retourner à : MERIDIEN INFORMATIQUE, 5 et 7, La Canebière - 13001 Marseille. 


DES LECTEUR 


Lucien RAUJOT 77220 Gretz 


J'achète régulièrement les disquettes de 
CPC. Comment dois-je faire pour sépa- 
rer les programmes Feux, éducatifs, uti- 
ares sue d’autres disquettes £ 


| L est très facile de regrouper les 
programmes à votre convenan- 
ce. Pour chacun d’entre eux, il vous 
faudra, toujours en vous reférant à 
l’article correspondant de la revue, 
identifier tous les fichiers entrant dans 
sa constitution et les transférer sur une 
disquette que vous aurez formatée en 
Data. 


Je ne m’en sors pas avec les listings de 
la série CAO sur CPC. 


D ans un souci de simplification 
nous appelons sur nos disquet- 
tes les différents fichiers de cette série 
CAOI, CAO2 etc. Il est bien évident 
qu'il convient de les regrouper sur une 
disquette en les renommant conformé- 
ment aux différents articles de la série. 


On m’a offert des cassettes de jeu. Com- 
ment les transférer sur disquette pour 
mon 6128 € 


[1 a plupart des cassettes de jeu 
sont protégées contre le pira- 
tage et leur transfert sur disquette 
nécessite l'utilisation d'un boîtier péri- 
phérique spécialisé tel que Mirage 
Imager. Mais attention, l’utilisation 
du jeu à partir de la disquette nécessi- 
tera également le raccordement de ce 
dispositif à votre 6128. 
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Les questions que vous nous posez, les problèmes que 
vous nous soumettez dans votre courrier couvrent tous 
les champs d'application du CPC. Il était dommage que 
les réponses restent individuelles. Nous ouvrons donc 
cette rubrique qui traitera des cas les plus fréquemment 
rencontrés et des problèmes dont nous pensons qu'ils 
sont d'ordre général et dont les solutions pourront 
apporter une aide précieuse à nombre de lecteurs. 


Roland PIERRE 56250 Elven 


J'ai toujours un problème avec le pro- 
gramme de recherche documentaire du 
n° 22. Quand je veux modifier ou sup- 
primer un document, le programme 
‘’plante’’ définitivement. Après plusieurs 
sorties du listing sur'imprimante, je n’ai 
pas encore réussi à trouver l’erreur. Si 
personne d’autre n’a encore signalé cette 
erreur, il s’agit certainement d’une faute 
de frappe de ma part et n’en tenez pas 
compte. 


A notre connaissance,ce pro- 
gramme ne comporte aucune 
erreur. Puisque vous avez la chance 
d’avoir une imprimante, comparez 
vote listing ligne à ligne avec celui de 
la revue, en vous faisant aider, si pos- 
sible, par une autre personne. 


Passionné de généalogie, un programme 
sur ce sujet est-il possible à traiter ? 


Nous avons publié dans le n° 10 de 
CPC, un programme écrit par Gérard 
CLAVREUL et intitulé Arbre généa- 
logique. 


er 


re + 


CHARGEUR HEXA 
Annie ROUSSEAU, de Compiègne, s’in- 


quiète de savoir comment et à quel 
endroit entrer les codes hexadécimaux 
du programme Tbis du jeu de Mille Bor- 
nes de CPC 24. 


L e hsting 1 de Mille Bornes est 
ce qu'on appelle un chargeur 
de codes hexadécimaux. Le BASIC 
avant ses limites, notamment en rapi- 
dité, les auteurs de programme sont 
parfois appelés à écrire certaines par- 
ties de ces programmes en langage 
d'assemblage qui, contraitement au 
BASIC, qui a besoin d’un interprète 
(interpréteur), sera directement com- 
pris par la machine. Il n’est, bien sûr, 
pas possible d’entrer ce langage par le 
BASIC (on utilise pour cela un assem- 
bleur). Tout le monde ne possédant 
pas un de ces programmes assem- 
bleurs, l'astuce consiste donc dans le 
codage des données du programme 
assembleur en valeurs hexadécimales 
(base 16) et à leur implantation directe 
dans la mémoire de l’ordinateur aux 
adresses adéquates. Cette partie de 
programme, une fois implantée, sera 
appelée par la commande BASIC 
“CALL”. 

Il s’agit donc, dans la pratique, d’en- 
trer le listing 1 de Mille Bornes et de 
le sauvegarder, puis de le lancer. Vous 
pourrez alors entrer les codes HEXA 
du listing 1bis qui seront vérifiés auto- 
matiquement ligne à ligne. A la fin de 
la saisie, la sauvegarde est automati- 
que. 


RSX 


Ralph FUCHS de Metz demande si, 
dans France Rivières de CPC Hors Série 
4, les mots précédés d’une barre verti- 
Le Set + o) sont bien des comman- 
des BASIC. 


C es mots sont des RSX - exten- 
sions résidentes du système - et 
correspondent à des commandes 
BASIC (en RAM) qui viennent s’ajou- 
ter aux commandes de la ROM. 

Il est ainsi possible de programmer 
une commande ‘BOX qui dessinera un 
rectangle ou :IDPOKE qui ‘‘pokera”? 
des valeurs sur deux octets (voir ces 
deux commandes dans RSX à GOGO, 
CPC 16). Ces nouvelles fonctions, 
réduites à un mot et d’éventuels para- 
mètres, augmentent donc la puissance 
de votre BASIC. Pour plus de rensei- 
gnements sur les RSX, voir COM- 
MENT CONSTRUIRE UNE RSX 
dans CPC 14. 


ÇA NE MARCHE PAS ! 


Maurice PICARD, de Tours, se bat avec 
un programme qui s’obstine à ne pas 
vouloir fonctionner. 


a  — 


|| l n’est pas le seul à rencontrer 
ce type de problème, une bon- 
ne part du courrier fait état de tels 
ennuis. Alors, pour que nos lecteurs 
ne s’arrachent pas les cheveux (du 
moins pas trop !), voici quelques con- 
seils de base que nous ne répèterons 
pas ! 

Avant toute saisie, s’assurer que le 
programme s’adresse bien au type de 
CPC que vous possédez. Une petite 
croix en correspondance dans la 
vignette sous le titre vous assure une 
compatibilité sans faille. Ensuite, et ce 
point est extrêmement important, lire 
et relire le texte de présentation. De 
nombreux renseignements cruciaux y 
figurent souvent. La saisie peut alors 
commencer. On veillera à ne pas con- 
fondre les caractères, notamment 1;1 
et I ou encore O et 0 et même 8 et B. 
D'une manière générale, efforcez-vous 
de saisir le programme à l’identique. 
Ne modifiez pas les numéros de ligne, 
ne supprimez pas les lignes de REM, 
un branchement peut y être effectué. 
Respectez le type de caractères (majus- 
cule, minuscule). N'oubliez pas que 
lorsqu’un message d’erreur pointe une 
ligne correcte, c’est que l’erreur se 
trouve en amont dans le programme 
(cas fréquent avec IMPROPER AR- 
GUMENT ou TYPE MISMATCH. 
Enfin, n’hésitez pas à utiliser le pro- 
gramme anti-erreurs qui est le meilleur 
gage de réussite dans la saisie. Mais il 
n’est opérationnel que depuis les der- 
niers CPC. Il vous faudra donc, pour 
les numéros antérieurs, redoubler de 
vigilance. 


PHOTOCOPIES 


Le même lecteur nous demande de lui 
envoyer un certain nombre de photoco- 
pies de listes de programmes et souhai- 
terait que nous lui procurions la nomen- 


clature détaillée des CPC 5, 6, 8, 12 etc. 


(14 numéros) 


L a demande en photocopie est 
tellement forte que si nous y 
répondions, le secrétariat y travaille- 
rait à plein temps. Pas de photocopies, 
donc. Quant à la nomenclature des 
articles parus dans CPC, il suffit, pour 
la consulter, de lire les pages centra- 
les de CPC 19 qui concerne les numé- 
ros 1 à 17. 


TABLEAUX DE VARIABLES 


P. SAINLEGER, de Ste Maure de Tou- 
raine, nous suggère de publier avec les 
programmes, la liste des variables 
correspondantes. 


fJ ous essayons d’obtenir de nos 
auteurs, qui sont souvent des 
lecteurs, le tableau des variables de 
leur programme. Certains semblent 
ressentir quelque difficulté à le dres- 
ser, d’autres présentent un pro- 
gramme parfaitement commenté. 
Sachez, si vous êtes un auteur en puis- 
sance, que la préférence peut être don- 
née à un programme dont le commen- 
taire est précis. En outre, il est dans 
l'intérêt même du programmeur de 
dresser la liste de ses variables 
AVANT de passer à l’écriture du pro- 
gramme. Cela apporte une plus 
grande maîtrise de l’écriture et prouve 
que l’on domine son programme et 
non l'inverse. 


CONSEILS D'ACHAT 


M. Claude PAYRE, de la Seyne-sur-Mer, 
voudrait apprendre l’assembleur mais ne 
sait ni quel programme ni quel ouvrage 
se procurer. 


I I nous est impossible de répon- 
dre à ce type de question autre- 
ment qu'en adressant la liste des pro- 
grammes ou/et des ouvrages existant 
sur le sujet, ce qui serait parfaitement 
vain. Il reste qu’il est possible de con- 
sulter les bancs d’essai de programmes 
parus dans CPC ainsi que la rubrique 
LA VITRINE DU LIBRAIRE qui 
peuvent aider utilement l'acheteur 
potentiel. 


PETITES ANNONCES 
Claude DEMONGEOT, de Tautery nous 


demande de lui venir en aide dans son 
aventure à bord du paquebot de MEUR- 
TRES SUR L’ATLANTIQUE. 


V':: le type même de question 
à poser par l’intermédiaire des 
petites annonces de CPC. Les P.A. ne 
constituent pas seulement le meilleur 
moyen de vendre et d’acheter du maté- 
riel, elles sont éncore une ouverture 
sur une relation directe avec d’autres 
lecteurs et, parfois, l’ultime moyen 
d’obtenir la réponse à un problème 


épineux. À vous d’en faire un rendez- 
vous suivi et même couru. 


EN FRANCAIS S.V.P. 
Robert COSTE, de la Seyne-sur-Mer 


regrette l’emploi, dans certains program- 
mes, de termes anglo-saxons. 


FU ous avons eu la chance, dans 
notre beau pays, de bénéficier, 
aux premiers halbutiements de la 
micro-informatique, de traductions 
des termes techniques de notre passe- 
temps favori. Utihisons-les de préfé- 
rence aux autres, tout le monde ne 
parle pas l'anglais. Le français, oui ! 
Les choses sont suffisamment hermé- 
tiques en informatique, facilitons au 
moins la communication ; n’en rajou- 
tons pas. ‘‘Je charge le drive avec le 
floppy et je hoote le DOS”’", vous a un 
de ces airs faussement professionnels 
qui confinent à la puérilité. Passons 
outre et restons simples. 


CONNECTEURS 


Etienne KNALL-DEMARS, de La Force, 
vient d'acquérir un CPC 6128 AZERTY 
et s’étonne de la modification des con- 
necteurs d’extension. 


E: effet, les derniers modèles 
AZERTY de la firme AMS- 
TRAD nécessitent l'emploi de nou- 
veaux câbles de liaison. Une char- 
mante attention à laquelle seront sen- 
sibles les possesseurs d’un modèle 
QWERTY qui ont imprimante et lec- 
teur de disquette et qui avaient envi- 
sagé de le remplacer par la nouvelle 
merveille. Mais ne désespérez pas. Il 
existe des adapteurs commercialisés 
par Bretagne Edit Presse (voir catalo- 
gue dans CPC). 


HUMEURS 


Un lecteur, que nous n’aurons pas la 
cruauté de nommer ici, nous conte ses 
déboires avec le Ab Le anti-erreurs 
et termine en nous affirmant que ce pro- 
gramme est tout à fait inintéressant. Sui- 
vent six signatures curieusement 
semblables. 


U': exemple typique de refus 
d'auto-critique. On ne lit pas 
les commentaires du programme, on 
passe des heures à saisir un pro- 
gramme antérieur à la publication de 
l'anti-erreurs, d’autres heures à tenter 
de comprendre le pourquoi du non. 
fonctionnement et le verdict tombe : 
ce programme n’a aucune portée ! 
Avant de douter de votre revue, voyez 
si, par hasard, vous n’auriez pas une 
pierre dans votre jardin@ 


U he | 


CREATION 
ET ANIMATION 


DE SPRITES 


Michel MAIGROT 


Organisation 
de la mémoire écran 


À - Adressage écran 


Le sujet ayant déjà été traité dans CPC 
n° 16 p. 24, je me contenterai d'y ajou- 
ter un complément sous la forme du pro- 
gramme SCRNMAP.BAS, qui établit une 
carte complète de la mémoire écran. 


B - Nombre de pixels disponibles selon 
le mode. 


L'écran dispose d'une résolution verti- 
cale de 400 lignes, or le système n'en 
adresse que 200. Quel est donc ce 
mystère ? Essayez donc la ligne BASIC 
suivante : 

10 FOR Y-0 to 399:PLOT 200,Y,1:NEXT 

Une ligne se dessine sur la hauteur de 
l'écran. Maintenant, essayez : 

10 FOR Y-0 to 399:STEP 2:PLOT 300,Y,1:NEXT 
Surprise, la ligne est identique, mais se 
trace beaucoup plus rapidement. Ceci 
nous permet de constater que deux 
points de l'écran sont adressés simulta- 
nément dans le sens vertical et introduit 
la notion de PAS DE DEPLACEMENT. La 
résolution verticale restant inchangée 
dans les 3 modes, ce dernier SERA TOU- 
JOURS DE DEUX. 

Les choses se compliquent dans le sens 
horizontal. (Pas de mauvaises pensées, 
SVP !) 

Nous disposons de 80 cases mémoire de 
1 octet chacune et de 640 positions pos- 
sibles soit 8 pixels * 80 cases. En mode 
2:: 

10 FOR X=-0 to 639:PLOT X,100,1:NEXT 
Trace une ligne en travers de l'écran. 
Ajouter une instruction STEP, 2 tracera 
un pointillé. On en déduit donc que dans 
1 octet:1 bit mis = 1 point allumé à 
l'écran : POKE &CO00,&X10101010 
allumera un pointillé en haut à gauche de 
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l'écran. Essayez avec différentes valeurs 
binaires pour étudier le résultat et 
souvenez-vous qu'en BASIC, les valeurs 
de PAPER ou PEN sont exclusivement O 
pixel éteint et 1 pixel allumé. 


EN MODE 2 LE PAS DE DEPLACEMENT 
SERA DE UN AVEC 639 POSITIONS 
POSSIBLES. 


En mode 1, nous avons 4 couleurs simul- 
tanées pour PAPER - PEN (0 à 3) soit 
00,01,10,11 en binaire. Deux bits sont 
donc nécessaires pour attribuer un stylo. 
Quoi que l'on fasse, un octet n'accep- 
tera jamais que 8 bits, il devient donc 
nécessaire d'allumer deux points écran 
simultanément et nous ne disposerons 
plus que de 4 pixels au lieu de 8 par octet 
écran. 8/4 = 2. Vérifier en ajoutant step 
2 à la ligne 10. 


EN MODE 1 LE PAS DE DEPLACEMENT 
SERA DE DEUX AVEC 319 POSITIONS 
POSSIBLES. 


En mode O, c'est de 16 stylos simulta- 
nés dont nous disposons, donc de O à 
1111 en binaire soit 4 bits. En suivant 
le raisonnement précédent, nous voyons 
qu’ 


EN MODE O LE PAS DE DEPLACEMENT 
SERA DE QUATRE AVEC 159 POSl- 
TIONS POSSIBLES. 


Notez que dans le calcul des coordon- 
nées X & Y le O est inclusif. 


C - Codage des couleurs 


En mode 2, pas de problème : bit à 1 = 
couleur affectée à PEN 1, bit à O couleur 
affectée à PEN O. 

En mode 1, les couleurs de O à 3 sont 
codées comme suit : 


Composition des 4 pixels de gauche à 
droite. 


PIXEL à: À B C D 
BITS : 37 286 185  O0&4 
VALEUR :01 11 10 00 


PEN OR 3 2 0 
Remettons les choses en ordre : 


BITS : 76543210 


OCTET 00101101 - 198 décimal 


MODE 1 : POKE &CO00, &X11000110 
pour voir le résultat. 


En mode O, le codage des couleurs de 
0 à 16 se réalise comme suit : 


PIXEL GAUCHE DROITE 
BITS : 1-5-3-7 0-4-2.6 
VALEUR 0110 1010 
PEN : 6 10 
L'octet recomposé : 

BITS : 76543210 

OCTET 00101101 - 45 décimal 


MODE 0 : POKE &C000, &X00101101 


Le programme ‘’PIXELMAP"" est conçu 
pour mettre en évidence ces particulari- 
tés. En mode 1 & 2, vous pouvez entrer 
les codes directement en binaire ou en 
décimal. Si l'hexadécimal vous tente, 
précédez la valeur de ‘‘H'’. En mode O, 
les entrées ne sont acceptées qu'en déci- 
mal. Dans les 3 modes, donner — 1 ren- 
voi au menu. 


QU'EST-CE 
QU'UN SPRITE ? 


Le SPRITE (Lutin in french), peut être 
défini comme une longue liste de 
DATAS. Elle contient les codes couleur 
de chaque case mémoire d'une image 
destinée à être représentée à l'écran. 
Cette dernière devant, de préférence, 
affecter la forme d’un rectangle, les hau- 
teur et largeur de chaque dessin devront 
donc, obligatoirement, être connues du 
programme exploitant. Dans le cas où les 
dessins d’une table sont de taille diffé- 
rente, les dimensions de chacun seront 
incluses dans la table ainsi que quelques 
octets supplémentaires (3 dans le cas de 
SURGENE). Ces 3 octets sont dans la 
plupart des cas, un gaspillage de 
mémoire, mais dans des cas bien précis, 
(contrôle d'affichage, rang de priorité, 
miroirs, collisions etc.) ils éviteront 
d’avoir à recourir à une table d'état et de 
jongler avec des pointeurs supplémen- 
taires. 


Avantages du SPRITE : 


Il permet l'affichage, le déplacement ou 
la modification d’un motif multicolore de 


taille quelconque. Cela de toutes les 
manières possibles et imaginables. C'est 
la seule manière concevable de réaliser 
une animation de qualité. 


Inconvénients . 


Bien que théoriquement réalisable en 
BASIC, le procédé demanderait des rafa- 
les de PEEK et POKE à l'intérieur des 
boucles FOR NEXT. Vous auriez le temps 
de lire plusieurs pages de votre revue 
favorite avant qu'un motif de quelques 


Dans ce cas, vous devrez créer 2 tables. 
La première d'intervalle fixe contenant 
30 envahisseurs, la seconde d'intervalle 
variable, contenant la base et votre 
chasseur. 


STRUCTURE 
ET EXPLOITATION 
D'UNE TABLE A 
INTERVALLES FIXES 


X est une constante égale à la dimension 
du plus grand sprite utilisé. 


SPTI SPT2 SPT3 SPT4 SPTS Etc 
ADSP -->1 ttes anses nnnenenes a pe ! 
X X X X X X 
ADSP = adresse où commence la table 
= S en mémoire. 
Détail d'un sprite : 
EE a fo Qmmnnnns ES D fe !-- 
01 02 03 Hauteur Longueur Di D2 Etc 


pixels ait fait le tour de l'écran. Doru 
LANGAGE ASSEMBLEUR OBLIGATOI- 
RE. 

Gourmande en mémoire, la méthode 
exige le choix d'une programmation par- 
faitement adaptée à l'application souhai- 
tée. De nombreuses possibilités d’anima- 
tion vous seront présentées par la suite. 
Un programme spécial doit être utilisé 
pour créer les dessins, il a été publié dans 
les numéros précédents. (Pas trop usés, 
les doigts ?...) 

La première décision à prendre sera l'or- 
ganisation de la table de données. 2 solu- 
tions sont possibles : 


Table à intervalles fixes 


Cette organisation impose un intervalle 
constant entre chaque série de données. 
Si vos sprites sont tous de dimensions 
égales, son rendement sera optimum car 
l'accès aux données sera aussi rapide 
que possible. Si les différences entre 
taille maximum et minimum sont de l'or- 
dre de quelques octets, vous gaspillerez 
un peu de place en mémoire. Mais avec 
des lignes de 100-200 octets et d’autres 
de 10, la solution 2 est la seule 
envisageable. 

Il existe aussi un terme intermédiaire : 
supposons qu'un jeu d'arcade soit basé 
sur le principe suivant : 

Une base d'envahisseurs représentée par 
un dessin de grande taille, libère un grand 
nombre de chasseurs de forme différente 
mais de même dimension (disons 30 
sprites de 10 * 10 pixels), destinés à 
détruire votre vaisseau qui, lui, est de 
taille moyenne. (vicieux, n'est-ce pas ?) 


O1, O2. 03 3 octets réservés pour 
usage divers. Les dimensions H & L de 
chaque rectangle étant les mêmes, il est 
donc inutile d'aller les chercher dans la 
table. Je ne les ai pas représentés ici car 
ils sont systématiquement inclus par 
SURGENE. D 1 = Code de la première 
case écran à remplir, D 2 de la seconde 
etc. 


Exemple de recherche dans une table de 
ce type : 


maille de la grille représente un pixel. Si 


ces propos vous laissent perplexe, 
revoyez le chapitre mémoire écran. 
Ensuite, pour créer votre table, utilisez 
toujours les MEMES DIMENSIONS DE 
GRILLE et lors de la sauvegarde, l'option 
GRILLE COMPLETE. Avec cette option, 
les lignes et colonnes vides sont consi- 
dérées comme faisant partie du 
rectangle. 

Le coin en haut à gauche de la grille 
représente le premier pixel de la première 
ligne du rectangle. Si votre sprite ne rem- 
plit pas la grille, déplacez-le sur ce point 
avant la sauvegarde, cela vous facilitera 
la vie (sauf cas particuliers dont on 
reparlera). 


Si vous prenez la précaution de créer des 
dessins selon la formule : longueur de la 
grille / nombre pixels dans une case = 
résultat entier, vous allègerez considéra- 
blement le travail de programmation ulté- 
rieur. Notamment si vous désirez réali- 
ser des effets de miroir. 

En effet, le plus petit dénominateur est 
un octet complet. Si la dernière cese 
mémoire du lutin n'est pas entièrement 
utilisée, SURGENE complète avec 1 ou 
plusieurs pixels de stylo O. Un décalage 
dont il faudra tenir compte si l’on veut 
juxtaposer 2 sprites sans laisser une 
bande de pixels de la couleur du papier. 


LD A,NUMERO DU SFRITE RECHERCHE 


LD DE,LONGUEUR D'UNE ZONE DE DONNEE 


LD HL,ADREZSSE DE LA TABLE 
DEC A 

JR =, TROUVE 

ADD HL,DE 

JR BOUCLE 


BOUCLE 


TROUVE 
INC HL 
INC HL 
INC ML 
INC HL 
INC HL 


Les opérations d'affichage peuvent 
commencer. 


SURGENE est initialement conçu pour 
générer des tables à intervalles variables, 
cela n'interdit pas pour autant de créer 
aussi des tables à intervalles fixes. Pro- 
céder comme suit : 

Déterminer préalablement la taille de 
grille nécessaire au dessin de la plus 
grande image. En hauteur : la dimension 
grille est égale au nombre de lignes requi- 
ses par le motif. La longueur de grille cor- 
respond au nombre de cases mémoire * 
par le nombre de pixels contenus par une 
case. (2-4-8 selon mode écran). Une 


(Constante A) 
(ADSF) 


ADSF=ADSP + « 


à ce point HL pointe sur l'octet O1 du sprite recherché 


sur O2 

sur OZ 

sur hH 

sur L 

sur la première case du sprite . 


Table à intervalles variables 


Dans ce cas les zones de stockage de 
chaque sprite sont de longueur diffé- 
rente. Îl devient impossible de retrouver 
une zone par incrémentation régulière, . 
d'où la nécessité de connaître à l'avance 
l'adresse qui exigera 2 octets par dessin. 
Ces deux octets ADSPT contiennent la 
valeur de l'adresse où commence les 
données du dessin SPT N. Cette table 
d'adresse est systématiquement générée 
par SURGENE. 


STRUCTURE 
ET EXPLOITATION 
D'UNE TABLE 
A INTERVALLES 
VARIABLES 


Table des sprites 


, SPTI SPT2 rat nr: use 
ADSPTI ! re ADSPT3 t 1 ADSPT4 tADSPTS 
Table d'adresses 
DETAIL 
,ADSPTI , ADSPT2 _ ADSPT3 , ADSPT4 FADSRTS be. DE LA STRUCTURE 
POUR RS PSN 4. UPNEREE FORME 2 oct D'UNE TABLE DE 
LU TU TRAVAIL SURGENE 
Table d'adresse 
Détail d'un sprite Adresse : Contenu 
Ici, les dimensions H & L, différentes 21856 - : Mode écran requis par les 
pour chaque sprite, doivent être recher- sprites. 
chées dans la table. 21857 - : Nombre de dessins. 
21858 - 59 : Pointeur de la table des 
encres. 
Ve Voneenansnnne Passe Ve Pe Po Vnsmsasnee {== 21860 - 61 : Pointeur du premier sprite 
01 02 03 H L DI D2 Etc 21862 - 63 : du second 
ADSPT î 3 oct. données diverses Hauteur Largeur 21864 - 65 : et tant qu'il y aura des 


Recherche d'un sprite d'après 
une table d'adresses 


LD A,NUMERO DU SPRITE 
LD IX,ADTABLE 

DEC A 

JR Z,TROUVE 

INC 1x 

INC IX 

JR BOUCLE 

1ci 1X Pointe sur l'adresse qui contient l'adresse du dessin 
LD L,(1*+0) Ne pas oublier que le Z80 range l'octet faible 
LD H,(IX+1) en premier 


Début de la table d'adresse dans 1x 
FOUCLE 


Adresse suivante 


TROUVE 


Ici HL Pointe sur le premier octet du sprite O1 
INC HL 02 
INC HL 03 
INC HL Pointe sur l'octet contenant la hauteur 


LD C, (HL) Hauteur dans C 
INC HL Pointe sur l'octet contenant la longueur 
LD B, (ML) Longueur dans B 


LD (DIMENSIONS),BC Les 2 sont rangées en mémoire 


INC HL Pointe sur le premier pixel 


à. 


L'affichage peut commencer. 


N'OUBLIEZ PAS QUE LA TABLE 
D'ADRESSE CONTIENT DES POIN- 
TEURS, C'EST A DIRE L'ADRESSE DE 
LA DONNEE A UTILISER ET QUE 2 OPE- 
RATIONS SUCCESSIVES SONT NECES- 
SAIRES POUR EXTRAIRE CETTE 
DONNEE. 
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sprites.. (air connu). 


Table sprites 


Emplacement du premier sprite = 
21856 + 4 octets + (Nombre de spri- 
tes * 2), ou plus simplement : contenu 
de 21860 : LD HL, (21860). 

Les deux premiers octets à cet emplace- 
ment sont à la disposition de l'utilisateur. 
Le suivant permet de déterminer si le 
sprite a été conçu en miroir. O si non. 1 
si HM, 2 si MV, 3 si MD. Si vous n'utili- 
sez pas de miroir, cet octet est libre. Les 
octets 4 & 5 contiennent la hauteur et 
la longueur du sprite. 

Emplacement second sprite - 21856 + 
4 + (nombre de sprites * 2) + la lon- 
gueur du premier sprite. (égale à hauteur 
sprite * longueur sprite) + 5 octets. Ou 
bien contenu de 21862. Et ainsi de suite. 
Table des encres : elle est située à la 
suite du dernier sprite de la table et uti- 
lise : 1 octet par stylo de 1 à 15, 3 ou 
1 (selon le mode). Elle est terminée par 
un octet # FF pour en marquer la fin. Ces 
octets contiennent le numéro d'encre 
affecté au stylo pointé. Ils sont initiali- 
sés lors de l'option purge. 

L'étude de cette structure révèle que, si 
vous avez décidé de créer une table à 
intervalles fixes, de nombreux octets 
deviennent inutiles. Notamment la table 
d'adresse et les données concernant 


hauteur et longueur. Soit 4 octets par 
sprite ou bien 7 ; si vous n'utilisez pas 
les octets de données. Une bonne con- 
naissance des LDIR et LDDR vous per- 
mettra de créer un programme optimi- 
sant ce type de table. Sinon, l'option 
‘’merge'’ de SURGENE vous offre un 
palliatif. 

1 - Pour concaténer 2 tables, le pro- 
gramme découpe en 4 fichiers différents, 
la table présente en mémoire et les sau- 
vegarde sur le disque sous les noms : 
a - TN.BIN : les noms des sprites : A 
l'adresse 19256 

b - TIBIN : la table des encres : A 
l'adresse 20256 

c - TA.BIN : la table des adresses : A 
l'adresse 21856 

d - TS.BIN : la table des sprites : A 
l'adresse 21856 + 4 + (nombre de spri- 


tes * 2). C'est cette dernière qui nous 
intéresse car elle contient les seules don- 
nées des sprites. Vous pouvez donc éli- 
miner la table des adresses par ce 
moyen. Ce sera toujours ça de gagné. 
Vous n'êtes, dans ce cas, pas tenu de 
pousser le ‘’MERGE'"’ jusqu'à la fin. 


‘’Répondez N'' quand le programme. 


demande s'il doit changer une table. 
Vous retournerez au menu juste après la 
création des 4 fichiers. 


STRUCTURE DE 
LA TABLE CHANTIER 


L'adresse 21856 contient toujours # FF. 
Le premier octet de donnée du sprite 
(contenu de l'adresse indiquée par le 


pointeur de sprite), renferme le mode 
dans lequel a été conçu le sprite. La table 
des encres n'est pas créée, le premier 
pointeur (21858-59) indique au pro- 
gramme l'adresse où devra commencer 
le sprite suivant. 
En 19256 figure un buffer de 100* 10 
octets. Ce dernier contient les noms 
affectés aux sprites. 

19256 NOM1 

19266 NOM?2 
L'octet de remplissage est # 20 
En 20256 c'est un buffer de 16 * 100 
octets, destiné à contenir les numéros 
d'encres attribués à chaque sprite. Le 
stylo O n'est jamais pris en compte. Un 
code # FF termine chaque série. La série 
100 en 21841 (jamais utilisée) contient 
le nom de la table. L'octet de remplissage 
est #E5. 


326 PRINT RIGHTS (HEXS (D) ,21:" ; 


330 NEXT 


© © 349 
L < EA 350 ‘si 25 lignes sorties : termine 


370 1=1+1:IF 1=26 THEN END 


LOU HER 

20 ‘#xxx SCREEN MAF #44#4 

AUREZ ZE ES ESLESESS SSL) 

49 

36 ‘Ce programme etablit la carte 

6% ‘de la memoire ecran 

7 ‘Les heureux possesseurs d'une 

89 ‘imprimante pourront rajouter :#B, 
94 derriere tous les FRINT et devront 


190 ‘disposer de 5 feuilles 1/2 de papier 


119 

120 ‘Initialisation du compte lignes & 
136 du debut de la memoire ecran 

140 : 

159 MODE 2:COMPT=9: AD=4COM: 1=1 

169 ‘ 

176 ‘Boucle d'affichage des groupes de 
184 ‘8 lignes decales de 4896 

199 * 

260 FOR ADI=AD TO &FFCF STEP 8800 


219 PRINT USING"LIGNE CARACTERE NUM. ## ";1;:PRINT'ADRESSE D 


EBUT LIGNE ECRAN : "; HEX$(ADI) 

224 COMPT=COMPT+1 

230 IF COMPT=8 THEN COMPT=9:G0TO 396 
248 NEXT 

250 

268 ‘Boucle d'affichage des colonnes 
270 ‘(identiques pour chaque groupe de 
286 ‘B lignes) 

299 ‘ 


360 PRINT:PRINT"'OCTET FAIBLE DES 79 ADRESSES ECRAN CORRESPON 


DANT AUX COLONNES": PRINT 
310 FOR I=ADI+1 TO ADi+79 


389 ‘ 


399 ‘iere adresse du groupe de B lignes 
494 ‘+80 (59) = iere adresse du groupe 


419 ‘suivant 
420 ‘ 


45ù PRINT:PRINT:AD=AD+86:GOTD 266 
CA va 2 


À RER 
2 ‘#### PIXEL MAP +###+ 
ÿ AA 


15 MODE 2 


26 FOR 174 TO 15:INK 1,1:NEXT: INK 19,18 

34 INE 6,14:BORDER 10:INK 1,6: INF 2,19,7:INE 3,26 
46 PRINT'SORTIE SUR IMPRIMANTE ? (O/N)" 

96 A$="":HHILE A$="": AS=UFPERS (INÉEYS) : WEND 

66 IF A$="O"THEN K=1:GD0T0 199 


89 GOTO 5ù 


74 IF A$="N"THEN 190 


96 MODE Z:PRINT:PRINT'TA] = ARRET , CM] = AUTRE MODE . [TI 


MPRIMANTE ON-OFF" 


190 IF k‘:>0 THEN LOCATE 1,4:PRINT"X SORTIE SUR IMPRIMANTE ET 


ECRAN X" 


119 IF k=9 THEN LOCATE 1,4:PRINT"X SORTIE EXCLUSIVEMENT SUR 


ECRAN X" 


129 A$="":MHILE A$="":AS$=UPPERS (INKEYS$) : HEND 


130 IF A$="A"THEN MODE 2:END 
149 IF A$="M"THEN 199 


159 IF a${>"I"THEN 120 
160 IF k{>0 THEN k=0 ELSE IF k=9 THEN k=1 


11 


170 GOTO 108 

190 MODE 2:PRINT"EN MODE 2 CHAQUE PIXEL CORRESPOND A UN POIN 
T ALLUME": PRINT 

200 PRINT"MODE 1 : LES PAIRES DE BITS 3-7 2-6 1-5 0-4 DONNEN 
T LES 4 PIXELS" 

210 PRINT"DE GAUCHE À DROITE . LES VALEURS A ENTRER DANS CHA 
QUE PAIRE SONT" 

220 PRINT"@0 - 01 - 10 
NT: PRINT 

230 PRINT'EN MODE @ LE PIXEL GAUCHE EST COMPOSE AVEC LES BIT 
S D'ORDRE IMPAIR" 

240 PRINT"DANS L'ORDRE : [i-5-3-7]" 

250 PRINT"LE PIXEL DROIT EST COMPOSE AVEC LES BITS D'ORDRE P 
AIR DANS L'ORDRE : [0-4-2-6]" 

260 PRINT"DANS CE MODE LES VALEURS SONT A DONNER EN DECIMAL 

ET CORRESPONDENT AUX" 

270 PRINT"VALEURS USUELLES DE PEN (à À 15) POUR LES PIXELS 6 
AUCHE ET DROIT" 

280 PRINT'LE RESULTAT EN BINAIRE EST CALCULE PAR LE PROGRAMM 
E .":PRINT 

290 PRINTPOUR QUITTER CETTE OPTION , ENTRER UNE VALEUR DE - 
1." 

300 PRINT:PRINT:PRINT: INPUT"QUEL MODE ";m:1F m<o OR m>3 THEN 
300 

310 

320 ‘#4 COORDONNEES DES CADRES SELON LE MODE ECRAN (1-2 IDE 
M) ##+# 

330 ‘ 

340 INK 2,15:1F m0 THEN MODE 1:r=0:x1=94:y=3:y1=2350: Y2=dL 
OCATE 1,1:PRINT"BITS 76543210  MODE";n:60TD 420 

350 MODE O:r=0:x1=28:y=2: yi=366: Y2=0:Flag=0:G0TD 420 

360 ‘ 

370 resi=INT (var/(2/ (n+ABS (m=0) /2) }) :Y1=INT (Y/2): y=2#y1:RETU 
RN 

380 ‘##* DESSINE LES CADRES ### 

390 ‘ 

400 ‘ IF m0 AND y>23 THEN y=3:y1=350: Y2=0 

410 ‘IF m=0 AND y>20 THEN y=2:y1=368: Y2=0 

420 x3=(8#18) + (ABS (m=0) +1) ‘+24 (2HABS (m=0) } 

430 MOVE X1,Y1:DRAMR x3,0,3:MOVE X1,Y1+18:DRANR x3,9,3 

440 MOVE X1,Y1:DRAMR 0,18: MOVE X1,Y1:FOR i=1 TO 7 

450 MOVER 16+(16#ABS (M=0)) ,0:DRANR 9, 18: MOVER 0,-18 

460 NEXT:MOVER 16+(16#ABS (M=0) ) ,0:DRAWR 0,18: IF r0. THEN r= 
O:RETURN 

470 ‘ 

480 ‘x#* ENTREE ET CONTROLE DES DONNEES EN DECIMAL BINAIRE D 
U HEXA #44 

490 ‘#44 POUR MODES 2 & 1 ##4 

500 ‘ 

510 IF m=0 THEN 900 

520 LOCATE 1,25:PRINT CHR$(&14) ;:LOCATE 39,25:PRINT STRINGS ( 


- 11 POUR PEN = 0 -1-2-3.":PRI 


8,233) ;CHA$ (234) :LOCATE 2,25: INPUT"NOMBRE CODE (dec.bin. CHlex 


)"ya$s:IF A$="-1" THEN 90 

939 IF LEN(a$)}>3 THEN IF LEN(a$}<>8 THEN 526 ELSE nbc=VAL("& 
X"+a$):GOTO 609 

949 IF LEFTS(a$,1)="H"OR LEFT$(a$, 1)="h"THEN IF LEN(a$)>3 TH 
EN 520 ELSE nbc=VAL("£&"+a$):G0T0 598 
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990 nbc=VAL(a$):1F nbc<@ OR nbc}255 THEN 520 

560 ‘ 

570 ‘### AFFICHAGE #44 

580 

590 a$=BIN$ (nbc, 8) 

600 LOCATE 7,Y:PRINT a$3::PRINT USING" ### “snbc;:PRINT'R"SHE 
X$(nbc,2):x1=94:r=1:G6OSUB 430 

619 IF M=1 THEN 730 

62 ‘ 

630 ‘### TRAITE LE MODE 2 ### 

440 

650 LOCATE 27,1:PRINT"12345678 PIXEL“ 

660 r$="":FOR i=i T0 B 

670 IF MID$(a$,i,1)="1"THEN r$=r$+CHR$(233)ELSE r$=r$+CHR$ (3 
2):c(i-1)=0 

680 NEXT 

690 LOCATE 27,Y:PRINT r$:60T0 1219 

700 ‘ 

719 ‘### TRAITE LE MODE 1 ### 

720 ‘ 

730 LOCATE 27,1:PRINT" 1 2 3 4 PIXEL" 

740 LOCATE 1,3:PRINT'PEN “;CHR#(241):FOR i=d TO 3:LOCATE 1,3 
+(i+1) 

750 IF i=0 THEN PRINT" 
1:PRINT USING" = #“si 
760 NEXT 

770 B$=RIGHTS (A$,4) :C$=LEFTS$ (A$,4) 

780 FOR I=1 TD 4 

790 C=VAL("&X"+MIDS (B$, 1,1)+MID$(C$, I, 1)) 

800 PEN C:C(I)=C 

810 LOCATE 25+2#i,y: PRINT CHR$ (233); CHR$ (233) 

820 POKE 55527+(169#Y2) ,nbc 

830 NEXT:PEN 1 

849 MOVE 562,Y1:DRAWR 18,0,3:DRAWR 0,18: DRAWR -18,0:DRAWR 0, 
-18 

850 GOTO 1210 

866 

870 ‘### TRAITEMENT DU MODE 9 ##+ 

889 ‘*### AFFICHE LES 15 COULEURS DISPONIBLES #*#+# 

890 ‘ 

990 IF flag=1 THEN 970 ELSE INK 2,3:HF=1:VP=19:F0R 1=@ TD 15 


= 0"ELSE PEN 1:PRINT CHR$(233) ; : PEN 


910 IF I/4=INT(I/4)THEN VP=VP+1:HP=1 

920 LOCATE HF,VP:PEN I:PRINT CHR$ (233); : PEN 1:PRINT USING"=# 
# “5 Is HP=HP+S 

930 NEXT:flag=1'### NE PAS REAFFICHER À CHAQUE TOUR LES COUL 
EURS DE PEN 

949 

950 ‘#x# ENTREE ET CONTROLE DES DONNEES ### 

960 

970 LOCATE 1,24:PRINT CHR$(%14) 3: INPUT"PIKEL GAUCHE"; PG:IF P 
G=-1 THEN 99 

971 INPUT“PIXEL DROITE"; PD 

989 IF PG<O OR P6>15 OR PD<9 OR PD>15 THEN 999 

9% ‘ 

1009 ‘### PERMUTATION DES BITS EXTREMES ### 

1619 ” 


1020 C(1)=P6:C(2)=PD:P6$=BINS (PG, 4) :PD$=BINS (PD,4) :PG1$=STRI | 1210 r=1:1F m€>0 THEN x1=416 ELSE x1=320 


NG$ (4,32) :PD1$=P61$ | 1229 GOSUB 430 

1030 MIDS(PB1$, 1, 1)=RIGHTS (PGS, 1):MIDS (P61$,4, 1)=LEFTS(PGS,1 | 1230 

V:MIDS (P61$, 2, 21=MID$ (PG$, 2, 2) 1240 ‘art IMPRIMANTE #44 

1940 MIDS(PD1$,1,1)=RIGHTS (PD$, 1):MID$ (PD1$,4,1)=LEFTS(PD$,1 | 1250 

}:MIDS (PD1$, 2, 2) =MID$ (PD$, 2,2) 1260 IF k=0 THEN 1400 

1950 * 1270 bS="BITS : 76543210 PIXELS : 12345678 MODE : 
1060 ‘ass MISE EN ORDRE DE L'OCTET (1 BIT GAUCHE + 1 BIT DRO | “+STR$(m) 

IT 4 FOIS DE SUITE) 1280 a$="ETAT : "+aÿt" PEN: " 

1070 1290 ON m+1 GOTO 1349,1310, 1300 

1080 A$="":FOR I=1 TO 4 1300 PRINT#B, bS:PRINT#B, a$;MIDS (a$, 10,8);:G0T0 1360 

1090 AS=AS4MIDS (PG1$, I, 1): A$=A$+MID$ (PD1$, I, 1) 1319 MIDS(b$,33,8)=" 1 2 3 4":PRINTHB,b$:PRINTHS, a$; 

1108 NEXT 1320 FOR i=1 TO 4:PRINTHB,USING"##";c (i) 3: NEXT 

1110 1330 60TO 1360 

1120 ‘tx AFFICHAGE #44 1340 MIDS(b$,33,8)=" 1 2":PRINT#B,b$:PRINTHE, a$; 

1130 ‘ 1350 FOR i=1 TO 2:PRINT#E, USING" #H##" ci) :NEXT 

1149 LOCATE 2, Y:PRINT A$:R=1:60SUB 430 1360 PRINT#B, USING" CODE ###"nbc;:PRINTHE," &'3HEXS (nbc 
1150 LOCATE 11,Y:PEN PG:PRINT STRING$ (4,233) :LOCATE 15,Y:PEN | ,2):PRINT#8, 

PD:PRINT STRINGS (4,233) 1370 ‘ 

1160 nbc=VAL (“&X"+a$):POKE 57501+(160#Y2) ,nbc:PEN 1 1380 ‘at 

1170 MOVE 608, Y1:DRANR 20,0:DRAUR 0, 16:DRANR -20,0:DRAMR 0, | 1390 

16 1400 IF m0 THEN X1=94:Y1=Y1-32: Y=y+2:y2=y2+1: IF y923 THEN 
1180 y=3:y1=350:Y2=0:60T0 420 ELSE 420 

1190 ‘#4 SORTIE DES CODES ENCRE POUR LES 3 MODES ### 1410 X1=28:V1=Y1-32: V=y+2:y2=y2#1: IF y>18 THEN y=2:y1=368: Y2 
1200 =9:6070 420 ELSE 429 
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[ Housse pour Amstrad (claier) 


[) Sac pour Amstrad (clavier) CPC 46406640 61280 PCW 8256°1 
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Les sacs pour claviers AMSTRAD 464 - 664 - 6128 comprennent 1 poche pour le clavier plus 1 autre du même volume pour y ranger les accessoires. 


: SIMPÆ 


= © — 2 — 


FEU à 


a rue Russeil - 44000 NANTES 


POUR COMMANDER: Retournez-nous cette publicité en cochant le ou les pro- 
duits que vous désirez recevoir et en remplissant le bon ci-dessous. Pour les coloris, 
rayez les mentions inutiles. 


@ Port PTT à ajouter au montant de votre commande: 25F 
@ Joindre votre règlement par chèque ou mandat à votre commande. 


NONT serions ets Re nn os sd Prénom: sienne me ban 


Signature: 
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TASWORD 


= Saga... 
Voici 3 ans la presse informati- 
que saluait TASWORD 464 en 
Æ; ces termes : «Il n’y a pas de 
: meilleure raison d’ acheter un 
CPC que ce programme | » 

LS TASWORD 464 (FF 260.- ttc) fut 
suivi de TASWORD « D » MAIL-MERGE pour ac- 
commoder les disquettes et le 664. En 1985, 
TASWORD 6128 MAIL-MERGE (TASWORD « D » et 
TASWORD 6128 sont vendus sur la même 
disquette à FF 360.- ttc) avec sa massive mé- 
moire texte de 64 Ko vit le jour et devait bien- 
tôt être accepté comme le standard sur le 6128 
et les 464/664 avec extensions DK'tronics. 


1986 vit l’arrivée de 


TASWORD 8000 PCW 


vitesse et « mailmerge » en plus ! 

Le traitement de textes qui rend sa rapidité et 
sa mémoire aux PCW 8256/8512 leur offrant par 
la même occasion le premier MAIL-MERGE 
incorporé et l'accès aux imprimantes externes. 
Tasword 8000 peut utiliser les fichiers Locoscript, 
Dbase, Wordstar, Multiplan etc... (FF 450.- ttc). 


TASWORD PC 


Un vent de renouveau... 

Le printemps 1987 vit la naissance de TASWORD 
PC, un vent de simplicité et de puissance (sans 
parler d’économie... FF 490.- ttc) souffle sur les 
« compatibles ». Face aux mastodontes du trai- 
tement de texte, TASWORD propose à un prix 
calculé, une solution qui en fait plus ; TAS- 
WORD PC fait avec efficacité ce que la majorité 
des utilisateurs souhaitent, il simplifie l'écriture. 
Un manuel complet et didactique, un pro- 
gramme d’auto-apprentissage et bien sûr MAIL- 
MERGE accompagnent TASWORD. Sémaphore 
assure le transfert des fichiers Tasword CPC et 
PCW sur disquette 51/4 (+FF 9.- la page A4). 


Des talents de typographe… 


TASPRINT 


LA REY accompagne TASWORD depuis 
“4 le début et vous permet de 
À faire des merveilles avec votre 
} imprimante matricielle, cinq po- 
Wa lices de caractères sur CPC, huit 
BE sur PCW et plus de vingt sur PC, 


ra S 


plus sur ce dernier un créateur de polices sim- 
ple et puissant. TASPRINT s'utilise aussi seul 
pour imprimer tout texte ASCII (Locoscript, Word- 
star etc...) Sur PCW et PC, TASPRINT possède un 
mode « machine à écrire » très pratique pour 
les textes courts. ( TASPRINT CPC et PCW FF 
250.- ttc - PC FF 390.- ttc). 


TAS-Sign 


le dernier né des laboratoires 
Sémaphore-Tasman ! 
Des talents d'artiste en lettres. 


blement ! Quatre écritures caractéris - 
tiques pour toutes les occasions, de 
4 à 19 centimètres de haut, itali- 


Fu Créez vous-même enseignes, ré- 
>) clames, affiches... TAS-Sign fait 

(S) passer le message clairement et lisi- 
Æ 


x" que, soulignement, espacement pro- 

portionnel, cadrage et centrage auto- 
matiques, huit options de tramage. 

TAS-Sign imprime dans la hauteur ou 

la largeur du papier et sur la longueur 


CPC et PCW, FF 250.- ttc - PC, FF 
390.- ttc). 


MASTERFILE 8000 


La base de données (fichier) relationnelle 
écrite en langage machine pour le PCW... 
(pas encore un autre programme BASIC ou 

CP/M réchauffé à la sauce PCW !). 

Là où les autres vous obligent à faire un choix 
entre fichiers en RAM rapides mais de capacité 
limitée, et des fichiers en accès direct sur dis- 
quettes, de grande capacité mais encombrants 
car de longueur fixe, MASTERFILE et le disque 
RAM du PCW travaillent ensemble pour vous 
proposer une grande capacité et un accès 
rapide à des données de longueur variables. 
100% en langage machine, entièrement piloté 
par menus, MASTERFILE 8000 est aussi accompa- 
gné d’un manuel didactique complet et de 10 
exemples directement utilisables (adresses/éti- 
quettes, facturier, bibliothèque, discothèque, 
gestion clientèle, gestion articles etc...). Un 
fichier MASTERFILE se crée rapidement sans con- 
naissances de programmation, directement à 
l’écran comme dans un programme de dessin. 
Vous gardez intactes les possibilités de votre 
imprimante. Masterfile peut importer et exporter 
tout fichier ASCII. (FF 550.- ttc). 


ER be (papier continu) (TAS-Sign 
e 


LCR 


tenue de comptes bancaires 
pour tous CPC (disquette ) 


Ergonomie et rapidité sont les ca- 
ractéristiques de ce programme 
écrit 100% en assembleur. Calqué 
sur un relevé bancaire classique, SE- 
MABANK évite toute gymnastique 
mentale inutile ! (FF 330.- ttc). 


SEMASTATS 


le premier programme de statistiques 
sur CPC ! 


Suivi, lecture, sauvegarde et correction des 
données, impression des résultats. Statistique 
descriptive, 10 tests paramétriques - régression 
linéaire, comparaison de moyennes, analyse de 
profils, analyse de variances à 1 et 2 critères, 
analyse discriminante, etc... - Tableaux et gra- 
phismes. Manuel détaillé avec notions théori- 
ques. Un outil professionnel d'étude stastique 
pour les recherches de moyenne envergure ou 
le test de recherches plus larges. (SEMASTATS 
disquette FF 395.- ttc) 


ALIMENT 


Dis-mois ce que tu manges et je te dirai 
qui tu es... (CPC 6128 et PC) 


S'il est agréable pour l’estomac de manger un 
bœuf Wellington, il peut être intéressant pour 
l’esprit de savoir ce qu'il y a dans le bœuf Wel- 
lington. Basé sur une table de plus de 800 (1000 
sur PC) aliments subdivisés en 16 nutriments, 
ALIMENT vous permet une analyse détaillée de 
la composition de votre nourriture par repas et 
par jour. Un programme conçu pour une utilisa- 
tion professionnelle en diététique mais d’un 
intérêt certain pour celui qui s'intéresse de près 
à son alimentation. Ecrit par un médecin avec 
l'assistance du service de Diététique et de Dia- 
bétologie de l'Hôpital Universitaire de Genève. 
(ALIMENT CPC FF 1 500.- ttc PC FF 3 800.-ttc dis- 
ponible en VPC seulement). 


EE 


GRAFPAD III PCW et PC 


(disponible en VPC seulement) 

La tablette à digitaliser de niveau 
professionnel dotée d’un program- 
me dessin assisté de hautes perfor- 
mances : POWERCAD ( Sur PCW, 
manuel en français FF 1 850.- ttc - 
sur PC manuel et logiciel en fran- 
çais FF 2 495.- ttc). 


SEMFICH 
gestion des catalogues de 
disquettes 3” sur CPC 


N'avez-vous jamais, vous qui avez plusieurs 
dizaines ou plusieurs centaines de programmes 
sur disquettes, rêvé de pouvoir : classer vos 
programmes par « genres » OU « types », com- 
menter brièvement chacun d’'entre-eux et, évi- 
demment, retrouver immédiatement celui que 
vous recherchez ? SEMFICH vous le permet ! 45 
codes de classement, 98 faces de disquettes, 
commentaires de 48 signes, listes écran et 
imprimante, recherche, mise à jour automati- 
que, pour 6128, 664, 464+ drive, toutes impri- 
mantes, lecteur B. (SEMFICH FF 330.- ttc). 


Et toujours, pour CPC : 


MASTERFILE II! la base de données relation- 
nelle (FF 360.- ttc) et MASTERCALC 128 
(FF 300.- ttc) le tableur simple, puissant .et 
rapide pour le 6128 et les 464/664 équipés de 
l'EXTENSION 64 K DK'tronics (FF 465.- ttc). 
TASCOPY, le programme de copie d'écrans 
en 8 tons de gris aux formats A4 & A3 
(FF 230.- ttc). 

Le CRAYON à fibre optique (FF 350.- ttc 
464/664 - FF 445.- ttc 6128) & le DIGITALISEUR 
(Scanner) DART pour DMP2000/3000 
(FF 750.- ttc). (Bientôt en versions PCW et PC...). 
Pour ceux qui ont le nouveau connecteur BUS 
6128, le câble RACCORD/CONVERSION 
qui vous permettra de raccorder toutes les 
extensions (synthé, scanner, multiface etc...) 
utilisant l’ancien connecteur (FF 175.-ttc). 


COMMANDES 


Les produits Sémaphore sont disponibles auprès des meilleurs revendeurs spécialisés ou directement : 
Pour la France, Sémaphore p.a. DMS-Diffusion av. du Salève 01220 Divonne-les-Bains tél. 50 20 79 85 

Pour la Suisse, la Belgique, autres pays, et payements par Cartes Visa, Eurocard, Diner's, American 
Express : commandes téléphoniques au 54 11 95 (Genève) du mardi au vendredi. 


Sémaphore distribue les ordinateurs Amstrad / Schneider en Suisse. Nos logiciels sont dis- 
ponibles dans notre magasin : Sémaphore, 94 route de La Plaine CH - 1283 La Plaine (Genève). 


ATELIER ES 


e FESTIVAL DE LA MICRO. N'oubliez 
pas ! Du 9 au 11 octobre 1987 à l’Espace 
Austerlitz (30 quai d’Austerlitz 75013 Paris) 
se déroulera le Festival de la Micro, orga- 
nisé par Néo-Média. Toutes les marques 
seront représentées. Donc, si vous êtes un 
vrai fanatique de la micro, rendez-vous sur 


le stand CPC. 


A L 


e GRANDE EXPOSITION DE 
LA MICRO-INFORMATIQUE. 
Du 14 au 19 septembre s’est dérou- 
lée au CNIT de la Défense à Paris, 
la grande exposition de la Micro- 
Informatique. Plus de 150 expo- 
sants, constructeurs et distributeurs se 
sont réunis pour présenter aux utili- 
sateurs de ko micro-professionnelle, 
les dernières nouveautés, tant au 
niveau des matériels que de leurs 
applications. 

Bien entendu, Amstrad était présent 
à cette grande manifestation. A cette 


occasion, nous avons pu voir l’arri- ! 


vée en France du ‘’petit dernier’ : 
le PC 1640 ECD qui se situe en haut 
de la gamme des ‘’compatibles’. 
Haut en couleurs, puisqu'il est capa- 
ble de gérer 64 couleurs tout en afi- 
chant 16 couleurs simultanément, le 


} PC 1640 a l'originalité de proposer 


à l’utilisateur tous les modes graphi- 
ues existant déjà. 
ans un premier temps, seule la ver- 
sion avec disque dur 20 M va être 
disponible en France. 


9 PC 1640 HD 20: 13390 F hors 


+ GONFLEZ VOTRE PC1512. NEC est 
une société japonaise qui figure parmi les 

éants de l’industrie des semi-conducteurs. 
On catalogue de microprocesseurs vient de 
s’enrichir de deux nouveaux produits, les V 
20 et V 30, qui peuvent remplacer, sans 


modification hard, les 8088-2 et 8086-2, 
tout en apportant un gain de vitesse consi- 
dérable, que l’on doit en particulier à une 
écriture optimisée du jeu de micro- 
instructions. Sachez, à titre indicatif, qu’un 
PC 1512 équipé du V 30 tourne à quatre 
fois la vitesse du PC standard. Distribué par 
Cholet Composants, tél. 41.62.36.70. 


e CONTRAT DE LICENCE MIXTE: BORLAND- 
EDUCATION NATIONALE. Selon Philippe Kahn, fon- 
dateur et président de Borland International ‘’le marché 
de l’éducation constitue un débouché privilégié pour les 
éditeurs de logiciels et un moyen de toucher directement 
les décideurs de demain’. Cette théorie se concrétise 
aujourd’hui par la signature d’un contrat de licence mixte 
entre le ministère de l’Education Nationale et la société 
Borland International. Depuis près d’un an, Thierry Bre- 
ton a participé à l’élaboraïion de ce tout nouveau con- 
cept de la licence mixte qui consiste en, d’une part, l’ac- 
quisition par l'Education Nationale du droit d'usage et, 
d'autre part, l'achat par les lycées et collèges, des logi- 
ciels Borland. Dans le cas présent, les logiciels concernés 
sont Turbo Pascal, langage de programmation struc- 
turé, Turbo Graphix, boîte à outils pour les program- 
meurs en Turbo Pascal et Reflex gestionnaire de base 
de données. 

Ce nouveau partenariat entre l’Etat et Borland Interna- 
tional est valable pendant deux ans à partir de cette ren- 
trée scolaire et met ainsi provisoirement un terme au pira- 
tage universitaire qui existait pour Turbo Pascal ! 
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taxes. 


Un logiciel fran 
çais TURBO 
CAD 3D se pro 
pose de vous 
ouvrir le mon- 
de de la 3° di- 
mension. Au 
menu, on trou- 
ve : création 
et manipula- 
tion d'objets en 
3D dans une li 
mite de 64000 
points sur les 3 
axes. 
De plus, une 
option anima- 
tion en temps 
réel (jusqu'à 8 
images par se- 
copie, est dis- 
ponible. Ce lo- 
giciel sera bien 
tôt complété 
par une série 
de modules con 
cernant les fa- 
ces cachées, le 
nappage, la 
As a 3D. 
Ce logiciel est 
commercialisé 
ar la société 
HAND-SHA- 
KE (16 (1) 
48.58.47.41) 
au prix de 
990 F HT. Ce 
programme 
fonctionne sur 
compatible 
XT, AT avec 
sortie vidéo 
Hercules, 


CGA, EGA. 


+ TOUS A VOS MINITELS... 
AXIS, agence Etat-Région, chargée 
de la promotion de VIDEOTEX, 
organise un concours d'idées et de 
projets de services Vidéotex pour la 
région Midi-Pyrénées. 

Dons le cadre du concours, deux 
catégories de concurrents ont été 
prévues : 

— les scolaires concourent pour des 
idées ou des projets. 

— les adultes (personnes physiques 
et associations) pour des projets 
uniquement. 

Ce concours sera lancé officiellement 
fin septemnre 1987 et les candidats 
auront jusqu’au 31 décembre 
1987 pour remettre leurs dossiers. 
Par ailleurs, la remise des prix et la 
présentation des meilleurs projets 
s’effectueront première quinzainee 
de février 1988. 

Pour retirer un dossier de participa- 
tion, ainsi que le réglement du con- 
cours, vous pouvez appeler AXIS au 
61.25.26.77; par Militel sur 3614 


+ code AXIS ou auprès des agen- 
ces commerciales des Télécommuni- 
cations à partir du 1° octobre 1987. 


e AMSTRAD COMPU- 
TER SHOW. Les 23, 24 et 
25 octobre prochains, se 
déroulera la 8° édition de 
l’Amstrad Computer Show, 
exposition organisée par 
Database et qui connaît tou- 
jours autant de succès à cha- 
qe édition. 

ette fois, l’exposition se tien- 
dra au G-Mex Centre de 
Manchester, immense édifice, 
ui permettra de disposer 

‘un ‘Théâtre Amstrad’’ 
pau présenter en non-stop, 
es nouveaux produits. 
Ainsi, bien entendu, que tous 
les nouveaux matériels sur 
CPC, PCW ou PC... 


° FORT COMMEHERAKLIOS. 
Le PCW/possèdemaintenant une 
écriture de disque qui permet des 
formatages rapides, ainsi que la 
récupération, de programmes 


cu Disponible chez ESAT. 


SOFTWARE (56.96:35.23); sur 
PCW, 8256 ét 8512 àu prix de 
350 F. TIC. 


e GAGNEZ VOTRE ENTRE- 
PRISE. Vous êtes l’auteur d’un 
programme éducatif performant? 
Celui-ci utilise les services d’au- 
tres média (vidéo, minitel etc.) ? 
Si votre seul désir.est de parve- 
nir à faire éditer cette œuvre, le 
concours ‘Création d'Entreprise 
Informatique Intermédia’” est fait 
pour vous. Cette épreuve est 
organisée par la IF, la fon- 
! dation FIL et la Ville de Niort. Ne 
premier (et unique) prix, pour le 
moins original, est une entreprise 
| au capital de 250.000 F. Le 
local, la formation, le conseil juri- 
{ dique et la garantie d'emprunt 
sont également fournis au ga- 
{ gant. avec pour but de déve- 
opper et vendre le logiciel. 
Si vous êtes intéressé par ce con- 
cours, écrivez à: Concours Créa- 
tion d'Entreprise, Carrefour Mé- 
dia Jeunesse de Niort, Hôtel de 
Ville, 79022 Niort Cédex, ou 
téléphonez au 49.28.00.21 
pour obtenir un dossier d’inscrip- 
tion. (Clôture du concours : le 30 
octobre 1987 et résultats le 13 
novembre 1987 à Niort). 


e FRENCH CONNECTEURS. 
Une désagréable surprise attend les 
acheteurs du CPC nouveau. Les con- 
necteurs situés à l’arrière de leur 
machine diffèrent des anciens modè- 
les. Alors, adieu RS 232, imprimante 
sur disque externe. 

Les Dieux de l'informatique veillent 
sur l’AMSTRAD. En effet, il vous est 
possible de trouver des adaptateurs 
de BUS au prix de 175 F. Où cela ? 
Dans le catalogue Bretagne Edit 
Presse, bien sûr ! (voir à l’intérieur 
de la revue) ou bien chez B.Y Infor- 
matique - (Tél: 76.43.40.49 ou 
75.0 Ro qui propose égale- 
ment un câble rond permettant le 
branchement d’une imprimante sur 
les nouveaux CPC. 

NB. Les adaptateurs proposés dans 
le catalogue sont des produits 
Sémaphore. 


® + MICRO-APPLICATION 
La distribution des produits 
micro-application en Éelgi ue 
et au Luxembourg est confiée 
à Easy Computing (02/660 
63.90). Parmi les logiciels, on 
trouve : GEM CALCOMAT 
PLUS (version 2.0): un tableau 

raphique sous GEM et 
a ERBASE PROFESSION- 
NEL, un système de gestion de 
base de données 
relationnelles. 


GUIDE DU GRAPHISME 
AMSTRAD PC 1512 

Se FAGOT-BARRALY 
SYBE 


e ENDURANCE 
® GAMES. Une novu- 

velle version d’Inter- 
© national Karaté va 

sortir. Que les puristes 

se rassurent, il s’agit 

uniquement d’une 

modification de prix. 
& (Il diminue, bien é 
A sûr !). 


TT 
alale 


TN 
0000000 


"NIORILLER 
CD 1 ——— 
FEDERATION 


+ INCENTIVE SOFTWARE. Annonce un logi- 
ciel entièrement en 3D : FREESCAPE. Ce jeu, qui 
a pour cadre une lune d’un système planétaire 
étranger est constitué de plus de 20.000 billions {) 
de lieux. Selon INCENTIVE, ce logiciel n’est ‘’ni 
un jeu d’arcade, ni un jeu d’aventure, ni un jeu de 
stratégie, mais les 3 à la fois’’. 


+ HEWSON. Les locomotives à 
vapeur vous ont toujours fasciné & 
(Ah, la bête humaine...). Voici de 
quoi vous réjouir. Devenez le con- 
ducteur de l’Evening Star (c’est éga- 
lement le titre du logiciel), une des 
plus puissantes locomotives britanni- 
ques. Hewson se lance dans le mar- 
ché du logiciel à petit prix (mais de 
bonne qualité). Le label RACK IT 
aura le soutien de MASTERTRONIC, 
en ce qui concerne la distribution. L: 


+ LORICIELS. Tiré d’un dessin 
animé japonais, COBRA est 
maintenant le sujet d’un logiciel 
d’arcade des plus mouvementés, 
dans lequel vous retrouverez 
tous les personnages de la série. ' 
140 F K7 et 198 F disque. 

Compilation story : les Hits 4 réu- 
nis MGT, MARACAIBO et BILLY 
LA BANLIEUE, le tout pour 
160F sur K7 et 198F sur 


isque. 
MISSION, un jeu multi-salles 
(80) au cours duquel vous devez 
retrouver une formule ultra 
et Disque 198 F, cassette 
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+ DIGITAL INTEGRA- 
TION. Going for the gold ! 
C’est le cri qui sera lancé par 
les futurs adeptes de cette 
simulation sportive. À bord 
d’un bobsleigh, vous devez 
remporter la médaille olym- 
pique. Ce logiciel a été écrit 
en collaboration avec le meil- 
leur pilote de Grande- 
Bretagne. 


& 


EEE + GREMLIN GRAPHICS. Gary Lineker's 
XXE superstar soccer (reprenez votre soufflel).. ll 
LT s’agit d’un jeu de football original, qui allie à 
TES 


ble en octobre. 


la fois le jeu d’arcade et la stratégie. Disponi- 


COMPENDIUM : le délire est assuré avec ce 


vrez le monde des Winks et allez de surprises 


HT 
ns 
ZT 
NT 
XYZ 
EXT nouveau produit de Gremlin Graphics. Décou- 
IX 
IT 
TITI 
HIT 


= en surprises. 


e ERE INFORMATIQUE. 
Suite logique de ERE HITS, 
voici à nouveau une compila- 
tion de ‘’classiques’’: CRAF- 
TON et XUNK, EDEN 
BLUES, ROBBBOT, SAI 
COMBAT, intitulée : ERE 
HITS 2. Le prix ? 230F en 
disquette et 150F sur 
cassette. 

Sous le sigle ‘Métal Hur- 
lant”’, le logiciel CLASH évo- 
que l’ambiance moite d’un 
polar urbain (voir banc d’es- 
sai dans ce numéro). 120 F 
K7, 180 F disquette. Sont 
annoncés également dans 
cette série : CRAFTON & 
XUNK 2 et STRYFE 2 (en 


octobre). 


‘e. SEMAPHORE. SEMABANK est 


un utilitaire de gestion de compte 
bancaire, entièrement écrit en 
assembleur. (tous CPC : 330 F TTC). 
SEMASTATS : sous un nom qui ne 
laisse pas de doute quant à ses inten- 


. tions, on trouvera un outil d’études 


statistiques pour les ordinateurs 
AMSTRAD CPC (395 F TTC). 

Vous avez décidé de maigrir de plu- 
sieurs kilos en suivant un régime dra- 
conien ? ALIMENT, disponible sur 
CPC et PC, tiendra à jour vos réser- 
ves caloriques et vous fera découvrir 
les composants cachés de vos plats 
favoris (es : 1500 F TTC, PC: 
3800 F TTC). 

GRAFPADIII PCW et PC : 3° version 
de cette tablette graphique destinée, 
cette fois, au PC et PCW. Cet outil 
est accompagné d’un logiciel de des- 
sin POWERCARD (1850 F TTC sur 
PCW et 2495 F TIC sur PC). 


1 - FIREBIRD. Profitant du 
«) succès des films tels que ‘A la 


poursuite du diamant vert’’ 
ou ‘’Le diamant du Nil’ voici 
MYSTERY OF THE NILE’’ un 


jeu d’aventure/arcade dans 


… lequel les héros affronteront 


le vilain Abu-Sahl. Autre logi- 
ciel annoncé : BUBBLE BOB- 
BLE avec des petits personna- 
ges tout à fait charmants. 


+ CRL. Bookofthe deadfle | e INFOGRAMES. Les PC et com- + MARTECH. Slaime est un jeu d'aventure 


livre des morts) est un jeu | patibles ne sont pas en reste. La suite employant un mode d’action original : le 
d'aventure qui a pour cadre | des aventures d’Isa est annoncée personnage est continuellement confronté à 
l'Egypte antique et ses dieux. l'sous le titre LES PASSAGERS DU de nouvelles situations, son environnement 
Mondroïd, la suite de VENT 2. Des graphismes encore apparaît à l’écran et il ne vous reste qu’à 
Cyborg, vous met aux prises améliorés, de nouvelles options prendre rapidement la meilleure solution 
Ho pee ET | caractériseront cette aventure. Prix : pour espérer atteindre la fin du jeu. 

es plans d’un androïde |; 290 F. 
puede Votre mission : 
l'empécher de produire ces 000000000000000000%00000 

erniers, : 

PIERRE MEINSOHN 


£ >, cu L AR Te CN St te Maître de la Fédération Internationale 
des Echecs 
TOUS LES 2 M OIS et EUTERSOFT présentent: 
SUPERMAR 
( | PC L H S Le premier logiclel 
ZX d de perfectionnement aux échecs 
sur Amstrad 6128 
PANI SN 
Code Postal ; Ville 
Signature 


POUR LES ABONNES he, 


= ——— — en joignant un chèque de 199 F. 


ENFIN UN BUREAU POUR VOTRE ORDINATEUR A 480 F T.T.C.* 


+ Structure rigide en bois de 22 kgs IMPRIMANTE 


+ Large espace disponible 
- Espace de rangement pour cassettes, 


e Belle finition d'ensemble. Peinture anti-reflets. 
disquettes et papier. 


e Livré en kit. Grande facilité de montage. 
CLAVIER 


e Dimensions 
Hauteur : 80 cm 
Longueur : 77 cm 
Profondeur : 61 cm 


BIBLIOTHEQUE 


* Frais de port en sus. 


BON DE COMMANDE A RETOURNER A : 
Société Paul VEET. 1, Rue Nélaton. 92800 Puteaux. Tél : (1)49.00.04.56. 


NOM Sens RM Ge RS Te tn EAN CUS Prénoms rene A RS AR RS ne EE teens 
Adresse: Le ee GA RER RU AN es nn Prat AV RTE dot ANS à nn D cn AU tie Mouse 
JeCOMMANdE: 2 20580 hrs nt sise eue Babes Bureau (x) pour ordinateur personnel au prix unitaire de 480,00 F T.T.C. 


Ci-joint mon règlement par chèque augmenté de 160.00 F de frais de port par article, soit au total de .......... T:T:C: 


Il est difficile de taper un programme d'une revue sans com- 
mettre d'erreurs |! Quand les erreurs sont signalées (Syntax error 
in, Line does not exist in...), la correction est facile puisque 
la ligne est indiquée, mais lorsqu’au ‘‘point de vue’’ du CPC, 
le programme est correct, il peut en être tout autrement pour 
le lecteur : 

Si le fonctionnement du programme ne correspond pas vraiment 
au programme original, alors il est impossible de retrouver l'er- 
reur commise, à moins de comparer les lignes de votre pro- 
gramme avec celles du journal mais c'est très long et on risque 
de passer sur une erreur sans la voir. 

C'est pourquoi ce programme a été créé ; il est à utiliser si vous 
ne retrouvez pas Vos erreurs. 

La frappe d'un programme de votre journal favori (CPC) termi- 
née, vous faites ‘’RUN'' et là, vous corrigez toutes les erreurs 
signalées par le CPC en vous référant au journal pour compa- 
rer. Si, malgré cela, il ne tourne toujours pas, suivez cette 
procédure : 

— sauvez votre programme en ASCII grâce à l'instruction : Save 
‘nom prog’, A. 

Puis, si vous êtes sur K7, rebobinez la bande jusqu'au début 
du fichier ; 

— chargez Anti-Erreurs ; 

— entrez le nom de votre programme et insérez le support où 
il se trouve (K7 ou disquette). 

Après quelques secondes, les numéros de ligne vont défiler. 
Vous remarquerez qu'à chaque ligne correspond un code de 2 
lettres sous cette forme : >XX< ; c'est le code qui va vous 
permettre de savoir d'où proviennent les erreurs. Pour cela, il 
faut que vous compariez les codes du journal à ceux de l'écran. 
Si un code diffère, notez sur papier le numéro de ligne qui cor- 
respond à ce code. Continuez ainsi jusqu'à la fin du listage. 
Le défilement terminé, recherchez votre programme et corrigez 


| ATTENTION : cette nouvelle version n’est pas com- 
patible avec l’ancienne. Seuls les programmes 

publiés dans ce numéro possèdent un code anti- 

erreurs correct. 

Les instructions de chargement restent, elles, 

inchangées. 
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les lignes que vous avez notées en comparant avec le journal. 
Faites ‘RUN’ et ô miracle ! ça marche. 

Attention, lors de la frappe du programme à traiter, n'omettez 
aucun caractère (sauf les espaces) car Anti-Erreurs les prend 
en compte et bien sûr, ne tapez pas les codes de contrôle. 


LOC ARENA EMEA LA 
26 ‘ # # LE 
36 ‘ + ANTI - ERREURS * #LC 
4 ‘# # LD 
9 ‘ + VERSION 2.0 + ?LE 
66 ‘ # # ?LF 
TO THEME *LG 
8% ‘ *LH 
96 ‘ (c) CPC & GREGORY N0E 1987 ?LJ 
199 ‘ ?RE 
119 * ?RC 
126 ‘ hhphohbp)bpp)pappbsphos *RD 
139 ‘< INITIALISATION ? ÈRE 
149 © EELECEL ELEC CELÉELCELLCEEE 2RF 
156 ‘ *RG 
166 ON ERROR GOTO 1269 QE 
170 MODE 2 +HH 
186 DIM G$(23) *6D 
194 FOR I=0 TO 22:READ G6$:6$(1)=6$:NEXT ?FR 


206 ‘ATTENTION LA LIGNE DE DATA CI-DESSOUS NE CONTIENT RC 
PAS TOUTES LES LETTRES DE L'ALPHABET 1! 
219 DATA ALB,C,D,E,F,G,H,J,KL,MN,P, GR. TU, VAUX Y.Z  >AD 


220 ‘ ANTI-BUG FICHIER RE 
230 IF PEEKCHIMEM+1)=255 THEN 289 >1D 
246 OPENOUT "CPC" MA 


299 
264 
274 
28û 


MEMORY HIMEM-2 
CLOSEOUT 

POHE HIMEM+1,255 
DEFREAL A-Z 


290 ‘ 


300 
319 


320 


BORDER 6: IN 0.1:INÉ 1,16:FEN 1:FAFER 6 
MOVE 6,16: DRAW 656, 16 
PRINT TAB(27) "'ANTI-ERREURS 


Lo 2.6":CHR$ (24) 


330 


540 LOCATE 24,25:PRINT"CPC REVUE DES STANDARDS AMSTRAD" : 


356 
36 
376 
386 
390 
490 
410 
426 
456 


[TT 


454 
4 
470 
489 
496 
5û 
319 
524 
Joû 
974 
986 
394 


MOVE 0,385: DRAM 656,385 


WINDOW 1.84,3,27 
M$="Realise par Gregory NÜE" 
F$="" 

FOR 1=i TO LEN(M#) 
F$=F#$+MIDS (M$. I, 1) 

LOCATE 76-1,5:FRINT F$ 

FOR T=1 TO j48 

NEXT T,I 


AREA AA HAE AA AJ DEA AE EE 


LOCATE Z,1:PRINT"ENTREZ LE NOM DU FICHIER : 


INPUT “4NF$ 
IF NF$="" THEN FRINT CHR$(7):G0T0 4éû 


LOCATE 2,3:PRINT'IMPRIMANTE OÙ ECRAN (I/E: 7" 


RES MHILE R$="":RE=UPPERS (INK EYS) : HEND 


IF R$="I" THEN CA=8:FRINT'ERANCHEZ-LA..." ELSE 574 


FRINT#8,CHR$ (27); "1: CHRS (20) 
GOTO 596 
IF R$="E" THEN CA=6:G0OTO 596 
GOTO 596 


CLS:LOCATE 2,3: PRINT'TANT QUE LE LISTAGE N EST FAS 


TERMINE" 


694 LOCATE 2,5:PRINT'NE PAS ARRETER LE MAGNETOFHONE OÙ 


NE" 
616 
628 
E" 

530 
CL) 
656 
CLUR 
ë7à 


LOCATE 2,7:PRINT'FAS SORTIR LA DISQUETTE" 


“sCHR$ 124 6 


LOCATE Z,i@:FRINT'PRESSEZ UNE TOUCHE FOUR LA LECTUR :HE 


CALL &BBOS 


bBù 


690 
760 
719 


729 
759 
748 


DPENIN “'"4NFS 
CLS: PRINT'TRAITEMENT EN COURS...“ 


IF LEN(A$)=295 THEN A$="":LINE INFÜTA#9.B$:G0TO 1174 1 


LINE INPUT#9,H$: A$=ES$ 
IF CA::8 THEN GOSUE 1326 
IF INKEY(66:=4 THEN STOP 


758 


760 


CALCUL DE LA CLE DE CONTROLE 


770 


786 
794 


A=G:FLG=6 
FOR 1=i TO LEN(A$) 


806 L$=MID$(A$,I,1) 

819 IF L$=CHR$(34) AND FLü=1 THEN FLG=9:G0TD 874 
826 IF Lé=CHR$(34; AND FLG=4 THEN FLG=1:G0T0 879 
859 IF L$=CHR$ (32) AND FLG::1 THEN 886 

846 IF L$=CHR$ (39; AND FLG=6 THEN 894 

856 IF FLG=1 THEN 870 

864 L$=UPFERS (L#) 

878 A=A+ASCiL#)+] 

88% NEXT I 

898 ‘ 

906 CH$=STRS (A) 

914 CH$=RIGHTS$ (CH$,LEN(CH#:-1) 

924 L=LEN(CH$) : LE=LEN(CH$} /2 

956 A=VAL(LEFTS(CH$, Li) } 

946 C=INT(A/21) 

956 F=A-(C#21) 

966 C$=6$(F) 

976 A=VAL (RIGHTS (CHS,L-L2) } 

986 C=INT(A/23):F=A-(C#27) 

990 C$=C$+6$(F) 

1060 

1616 FOR I=1 TD 6 

1920 L$=MIDS(A$,I,1) 

1026 IF L$:i"a" OR L$:"9" THEN 1664 

1046 LIS=LIS+L$ 

1956 NEXT 

1466 

1076 IF CA‘/8 (HEN lu8v ELSE [1uo 

1989 FRINT Li$:TAB(10) "o"iCg 

1994 LI$="":G0T0 1176 

1106 LIS="":FRINTHCA,LEFTS(ES, 551: TAB(S7i “iiCé 
1116 IF LEN(ES):55 THEN 1174 

1126 FG=1 

1154 E$=MIDS(ES,56,LEN(ES#) ) 

1144 PRINT#CA,LEFTS(E$, 55; 

1156 IF FG=1 AND CA::8 THEN FG=6:GOSUB 1126:G0T0 1186 
1iéb GOTO 1114 

1176 IF EDF=-1 THEN CLOSEIN ELSE GOTO 714 


1189 IF CA=6 THEN CALL BBBOZ:FRINT TAB(SG) CHR# (24): UN RE 


E TOUCHE... ";CHR$ (24) :CALL SBB4S 


1199 CLS:FRINT'MAINTENANT RECHARGEZ "iNF$:" ET CORRIGEZ : 


LES LIGNES QUE VOUS AVEZ NOTES. ." 
1269 END 

1219 

RE 
1236 à TRAITEMENTS DES ERREURS : 
1249  éteneesceseteteeneteeé 


1256 


1260 IF ERR=2S THEN CLS: PRINT CHR$ (7) SCHR$ 124; "FICHIER : 


NON ASCII": CHR$ (24) :END ELSE CONT 
1276 
12864 
1:96 
1:06 
1316 
1326 COM=COM+1:1F COM:19 THEN CALL &BB4T: PRINT TAB(S6:) 
“UNE TOUCHE... “:CALL RBB#5: CLS: COM=1 

1336 RETURN 


iFA 


#06 


:EG 


#16 


Carte RS 232 : 


deux programmes 
d'applications 


Les possesseurs (et 
constructeurs) de la carte 
RS 232 décrite dans le 
numéro précédent vont 

ouvoir utiliser le fruit de 
eur labeur, grâce aux 
deux programmes 
suivants : 


EMULCOM 
Par l'intermédiaire de la carte SIO, ce 
programme permet de convertir un 
AMSTRAD (664-6128) en terminal 
vidéo alphanumérique. 
Sur la voie A de la carte RS 232, on 
connectera un système de type 
ordinateur, modem... : sur la voie B, 
une imprimante série permettant des 
recopies d'écran. 
Une configuration est possible suivant 
le contenu des variables : 
— CODOA = O0 -> le terminal envoie 
uniquement le code OD 

= 1-> le terminal envoie 
OD suivi de OA 
— XONXOF = O0 -> le terminal 
fonctionne en mode XON-XOFF 


22 


mu Philippe LEBEL 


19 Abou F=RTTATiILELUGeMHILE A2: FOR AA TO A+IS:RERD Chi. 
ZVAL ("RCE :S2=6+E+69536#(546.:327071: IF ASF THEN PDÉE AE 

26 NEXT:READ Dé: T=VAL("L ADS: IF T<:S THEN FRINT CHR#i7i:"Err 
eur ligne“:L:END ELSE L=L+5:WEND 

36 SAVE ‘emulcom",.b,43404, 27:47 

194 DATA 61,5C,FC,3E,EC, ED, 79,01,7D,FC.3E, 18,0, 79,3E,64,4761 
195 DATA ED, 79.3E,47,ED,79,3E,43,ED,79,3E,41,ED,79,3E,05,4E81 
114 DATA ED, 79,276, 28,ED,79,3€,41,ED,79,3E,04,ED,79,01,7F,157C 
115 DATA FC,ZE,44,ED,79,3E,07,ED,79,23E,03,E0,79,3E, 41,ED, 1DSE 
126 DATA 79,3E,05,ED,79,3E, 28, ED, 79,3E,01,ED, 79,3E, 66, ED, 245€ 
125 DATA 79,4F,32,48,33,172,46,33,32,45,233,33,44,32,72,4D, 28ÂE 
136 DATA 33,3E,0%,CD,4E, BC, CD,81,BB,C3,8F,231,34,45,33,B7, 2FAD 
135 DATA C2,68F,31,CD,09,BE,D2,8F,31,32,47,233,FE,7F,28,32,36D5 
149 DATA FE,86,F2,D9,34,3À,44,33,B7,28,0E,3A,47,33,FE, 26, 3DBE 
145 DATA FA,11,31,0D,95A,BB,3A,47,33,FE,OD, 26,6F,3A,48,33,4370 
154 DATA B7,CA, AC, 39,CD,D5,32,3E,04.32,47,33,CD, 08,34, C3, 4858 
155 DATA 6F,31,7A,44,37,.57,28,16,CD,78,66,11,91,01,4F.ED,95140 
16 DATA 52,CA,8F,31,3E,08, CD, SA, BE, ZE, 16, CD, SA, BB, ZE, 08,5707 
165 DATA 22,47,33,CD,05,33,C3,8F,31,FE, EG, CA, 19,32, FE, F4, bûAF 
176 DATA CS,EF,20,21,FB4EF,36,42,23,36,85,31,FE,EF,CS,FE, oû8i 
175 DATA F5S.C2,8F,31,CD. 80, BE,C3.8F. 31,00, BE, du, 28, 0B, DD, 7294 


186 DATA 23, 0D,E3,00,27,10,F2.03,87.31,.0D,6€.61,DD, 66,42, 7804 


195 Dalh ET, CD, DS, 32 CE, DE ZA, ZE. 26. CD, 54. BBC, EF. 31,FE, 8124 275 LATa CD,85,31,31.01.w1,16,04,.23,49,277.E5,CD,81.32,E1. MAR 
196 DATA oD. 28,68, CD, 54, BB, CT, BF, 21,34, 48,53, 205,5 sn 296 DATA 2B,21,0D.75,BE, CL, 66, BE, 38.07, 2E, 24, CD, 94,32, 2A.104b 
195 DATA où, CD, SA. BE, CS, 9F,31,2E, 60,CD.S4.EE, ZE, 04, 1B,EZ,SFYE 293 DATA 49,25, 24,7C,FE,51.24,E4,CD.89,272, 26,01, 20, 7D,FE, l''6E 
20 DATA 21,81,41,C0,75, 1F,3:,32,.47,33,0D.D5,32,C3, 965€ 266 DATA 14,24,05,284,46.237,C0.75,BE,CD,7E.BE, CD,89, 52, 54. LEE? 
245 DATA 8F,21,34,46,33,B7. 02,87, 211, D FL, ZE SEL. 75,502 293 DATA do,33,.87,05,8F,31,3€, 11,32,47,33,CE, 05,22. C3, 6F, 2SEA 
216 DATA GE, AGEL, 79,ED, 78, CE, 47,38, FA FIGE OS, ED, 76, ZE ARE Jo DATA JI,EL, SEE, ZT, AF,EL, 52, C9,3E, O0, CD, 94,32, 3E, 04. 2CBE 
215 DATA 2SED, 75,61, JC FCERNZS,FESFE LI CAS, 31, 18,09. alé | 205 LaTa Cb,54,22,09,E5.FS, 1A,4D,3: Ba 1,26,01,7F,FC.ED, 34£6 
224 DATA GE,FF, 35,45, 232,C05,6F, 31,4, 35 5,F,31,01,8526 | 24 DaïA 7BCE,47,28,1F,01,7E,FL.EL, ZECE,BF,FE. 12,26, 14, 1066 
225 Data CD,FC, ZE, NS,ED, 75, 3E, AA. ED, CE, 8, CEEEde ! Z15 DATh 9147FFCED,7E, LE,47,28,F 7401, 7E,FCEL, :8,CB, EF, SEC 
254 DATA 47,04, 80, 36,F7, JE USED, 79, GE, JB. ED, 79,41, ju LSLE | 326 DATA FE, 11,24,EL,61,7F,FC,EL,78,E0.04,26,F7,F1.01,7E,4E57 
225 DATA ED, ZE.FECE EF, FE, 26,FA, DA, ZI FES7F, 20, 17,00, 74. LFL4 5 LATA FC.EL, 79.E1, C9, 01,70, FLED, 70,E6.44,28,FA, 34,47, S7CF 
246 DaT4 EF,11,41,01,AF,EL, 52,28, C8,7E, EU Abe (Oh 2e DT 23,01,7C,.FCED, 79,06,10,1F,11,49,17,31,07,iF,21,5CÈ2 
245 DATA CD,SA,ER, 16, 8A. CD, SA, BE, 18,8S,FE, IE, 28,E1, DL, Z1,DE47 328 DATA GB. EI AA ir, 31 0B LP TIC, IF, 31, 6D,1F. 21.00, 5E78 
254 DATA E7,32,68,1F,C3, FA, TO CD, 78 EE, 7D,FE 61, LA, BF, 11,Ec78 He DATA 2F,21,01,46,71,02,8F 021,42 8F,11,.64,8F,31,05,8F,6207 
295 Dai ZE, 3F ! tie «91. CH.SF.EErA 345 DATA Z1,08, F8 TIGE, 86, 211,0F,5F,31.11,49,31,12,8F.271,66E 
2e DATA 3 or PA MENEs Fast 256 DATA 17,55,11,14,6F,31,15.84,31,16.6F,31,17,11,22,18,8459 
255 DaTh Z : DATA 09,32,19,99, 71, 1AE 7, TI, IL SF, II, 1, 8F,231,iE. 8 GËFE 
Ziy DATA CD, 7E a et che 1,CL, EEE, DATA ZI AFS BF, 21 du oeuf, cp, en, 0, D, 06, Gi, Go dr, due, To 


eur 


ligne 


ju SAVE 


144 
145 
lis 
115 


PART 


CR 


12) 


DAÏA 
DATA 
L'ATA 
CaTé 


116 LA 


1'E f 


is 


1dé Lé 
145 


L'4C+iiszStt+65536elS+t:72707ts 
Lu HEXT:READ D 


Th e3,31.18.07,7 


à FE, :1,B7 


à B7.13 


- À PSE 


: D A CHE 
TA GACD,FE, LI, 3E 
DAT 27.124,00, 484,06, 00, 06,00, 00,00, 00,00, 06,06, 00, 06, 0246 1 


Pete NHILe n° =F:FÛR A4 T0 4riSihEñs Lt 
tif 4°=F THEN FÜRE 4, 
Sa T=VAL CE+D85 à ÎF 1238 THEN FRINT Cdhgi7ii"Err 
g'il: sa ELSE L=L+S:HEND 
“transtii".0. 4200, 4126: 
JE HA CO HE, EL, LAFE, FI, ZE, 
TICD,F7,Iu, Cu. 41, 31,21, 
77,0. 24.10, FE.ie,:b, 11, 3i.CD,F7,3 4, CD, D, LIAC 
ELLE BC. 20,21,97,71,18,F2, 34,00, 52, 0D,80, EC, 24, 159F 
17.FE 0,28 ,F7,ER, 21, 7F, A6, BTE, 3L,EE, 36,45, 71,245 
7,23,16,64,28, D, Zum, ZX, CD, FAQ EL, JeE7 
FLZELEE EL. 79,01, 7D.FL, ZE, 18,ED,76,3E, 04, ELA 
E,47,E0, 79,3E.63,ED, 79,23€, 41,80, 79,3E,03, 3338 
ED, FS,ZE AAEL, 79,3E,01,E0, 77,13€, 06, ED, 79.EL,5E, 3L7F 
ED 52, CA, Be, 29, ZA ou, ZA, LA, 124, Leo], 4351 
FL, FCEE, 78,66.44,29,F4,34,62,32,01,7C,FC,ED, 79. 4B5b 
.ED,52,20,62,21,82,31,C0,F7,30,21,09,31,CD,5352 
F7,24,CD,81,ÈE,CD,06,.BB,FE. #0, 25,1C,FE, 6, F4, C3, SCID 
IMFE,ZAFECS. 36,00, 5A, EBFS.CL.E7,11,F1,FE,dF, 5ôLe 
L 31,21,F8,EF, 30. À2,6EL8 
.D9,CS, CD, SA,EE, 27, 15, 6EA 
à 20, d6, 00, CD,2F,31,77,FE, 7CF 7 
19, lu. 40, FE, 60, 34,65, 72, 841C 
.CD,ED.31,18,L0, CD, 884 


ru + 
EL, 21,52,03ES 


its 27. 32.00. ÉAE 


08, 20,07 ,0D.FA US, SL, LE, 
C8, 0D,77,FE,22,26,E4,7E, 40, 


à S1,BB.CD,46, BB, FE. 7F,20,02, ZE 0B,FE O0, IS, 1O,FE, BEFF 


dE, 28, QC,FE, 1,58,È5, FE, FC,28.€7 FE; EF Ex ESC 3, 0644 
à J4.BE. dE. 5F,80.24,64,85,20,46,69.63 08. 67,55. 72,96 


1 26,3E,00,46,69,83,68,69,05, 72,20, 74,73,0F, 70, 2, A389 


2,6!,06E,64,40,48,0û,54,55,54,.45,26,0d,95, 20, 47F7 


Th d6,69,63,68,66,85,73,20,09,6E,53,9F,6b, 70,61, 74, ESC 


67.6.8L,89,4D, 0,0, 41.43, MT ren ver 
1 68,95,65,72,20,69, 80, 76,06F,73,73,69,82, 60,85, D, BB7C 
DEN 160 4 1.524 250. æ, Re 


20,CE22 
3 ,CD,FB,31,3E,08,L3,5A,BE, 27, ZA, DIFE 


= 1-> pas de contrôle 
XON-XOFF 
— ECHO = O0 -> mode de 
transmission en FULL DUPLEX 
= 1-> mode HALF 
DUPLEX 
— PTONOF = O0 -> l'imprimante 
fonctionne en mode XON-XOFF 
= 1 ->pas de contrôle 
XON-XOFF 
Trois touches de fonction sont 
programmées : 
— [COPY] : permet une recopie 
d'écran sur l'imprimante série jusqu'à 
la position du curseur. 
— [SHIFT] + [1] : permet de sortir du 
programme et de revenir au BASIC 
— [SHIFT] + [1] : permet d'effacer 
l'écran. 
La voie À de la carte SIO est 
configurée en. 
— 9600 Bds 
— 7 bits 
— 1 stop bit 
— parité paire 
La voie B de la carte SIO est 
configurée en : 
— 1200 Bds 
— 7 bits 
— 1 stop bit 
— parité paire 
L'utilisateur aura, bien sûr, tout loisir 
de modifier ces paramètres en 
fonction de ses besoins. 
L'organisation générale du programme 
pourra être modifiée suivant 
l'utilisation envisagée et le type 
d'appareil connecté. Avis aux 
programmeurs. 


TRANSFIL 


Après avoir entré le nom d'un fichier 
ASCII, le programme se charge de le 
lire sur disquette, de le stocker en 
mémoire et enfin, si tout est correct, 
de le transférer par l'intermédiaire du 
canal À de la carte SIO. 
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AMSTRAD & 
MINITEL 


par Eddy Dutertre. 


Devant l’avalanche de demandes concer- 
nant l’article du n° 14, voici à nouveau le 


plan du câble AMSTRAD/MINITEL décrit 


Connecteur venant sur la sortie imprimante de L'AMSTRAD 
(2 fois 17 points) 


ER DE EC ANRENNE 7 
ODIIL II TRI TITI IA 
ALMA A a 


Tout d'abord, précisons qu'il existe deux 
types de Minitel : 

e le standard à modem non retournable 
(inutilisable), 

e le modèle, plus sophistiqué, à modem 
retournable. 

C'est ce dernier qu'il faudra posséder 
pour notre utilisation. || se reconnaît par 
la lettre ‘’R'’ sur la plaque signalétique 
se trouvant en général sous l'appareil. 


Quels devront être les ingrédients ? 

Et bien, c'est simple, le programme ci- 
dessous, un simple câble de liaison à réa- 
liser et, bien sûr, un correspondant. 
Rassurez-vous, même si vous êtes seul, 
vous pourrez tester le bon fonctionne- 
ment de l’ensemble avec un petit magné- 
tophone à cassette enregistrant les 
signaux BF sortant du Minitel (ligne). 


Prise DIN 
vers le 


MINITEL LE CABLE DE LIAISON 


C'est le seul montage à réaliser. Il faut 
disposer d’un connecteur femelle du type 
de celui utilisé pour l'imprimante, d'un 
câble 3 fils ou 2 fils + blindage et d'une 
prise DIN 5 broches. Ce câble réalisera 
la connexion entre la prise imprimante 
AMSTRAD et la prise DIN du Minitel. 


La longueur du câble pourra atteindre, s'il 
est blindé, 3 à 4 mètres. La broche 2 de 
la prise DIN est à la masse. 


FONCTIONS EN COULEUR 


Mieux vaut tard que jamais. 
Voici enfin le catalogue de 
fonctions qui aurait dû norma- 
lement être joint au listing de 
Richard COTTÉ (n° 24 de CPC 
page 85). Vous allez pouvoir 
délirer en couleurs sur votre 
écran. 
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COS((x-2) 2+y*"y)+COS((X+2)12+Y*Y) —4,4 —2,2 
COS(x*y"exP(-y/5)) — 10, 10 1,1 
COS(x-y"y) a ne 10, 10 1,1 
COS{(x*x+y"y) : _—- — 10,10 Ka, *1 
COS" x" y" y+x" x" y+x"y—1) —5,5 1,1 
COS(7*COS(x)-2*SIN(y)) — 10,10 1,1 
COS(x)COS(y) | | -6,6 1,1 
6*COS(x"y)-S"SIN(3"y) _[-5,5 SLI 


COS(X"EXP(-y/5))}+COS(y*EXP(-x/5)) | —10, 10 


Débutant ou utilisateur confirmé de CPC 

464, 6128, exploitez à fond les capacités de 
votre machine à travers des informations pré- 
cises, des explications et exemples clairs, le 
langage machine et le Basic. Découvrez tout sur 
ie CP/M et votre lecteur de disquette pour pro- 
grammer en vrai “pro”. 


Pour tous ceux qui consi- 
dèrent que le Basic n’est ni 
assez puissant ni assez 
rapide. Découvrez les 
bases de la programmation 
en langage machine, au 
mode de travail du proces- 
seur Z 80 en passant par 
une description précise de 
ses instructions ainsi que 
l’utilisation des routines 
systèmes. Le langage 
machine n'aura plus de 
secret pour vous grâce aux 
nombreux exemples et programmes complets (assembleur, 
désassembleur et moniteur). (Réf. ML 123) 129 FF. 

(Réf. ML 223) 249 FF avec la disquette. 250 p. 


Le grand livre du Basic sur CPC 6128 


Exploitez à fond toutes les capacités de l'excellent Basic Locomotive 
et maîtrisez les bases de la programmation et ses domaines profes- 
sionnels (tris, fenêtres, masques, écrans, traitement des erreurs, 
protection contre la copie) et le fonctionnement interne du Basic. 
Découvrez les domaines 
“créatifs” : graphismes, sons 

et musique. Gérez le stockage 
des données et le lecteur de 
disquette, son accès direct 
avec l'AMDOS et les interrup- 
tions Bankwrite, Bankfind 

et leurs applications RAMDISK. 
Enfin, des listings d'applica- 
tions comme traitement de 
texte, budget familial. 

(Réf. ML 168] 149 FF. 

(Réf. ML 268) 249 FF avec 

la disquette. 260 p. 
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# EDITIONS MICRO APPLICATION 2 


Bien débuter avec le CPC 6128 


Vous qui venez d'acquérir un CPC 6128, réussissez à coup sûr vos 
débuts. Apprenez pas à pas les notions de programmation du Basic, 
de graphisme et de son. Découvrez les possibilités de votre lecteur 
de disquette (formatage, fichiers et fichiers ASCII, protection des 
programmes, sauvegarde, fusion, suppression de fichiers...). 


(Réf. ML 146) 99 FF. 200 p. 


Le livre du CP/M 


E PLEIN DE TONUS 
POUR VOTRE CPC. 


Toutes les explications indispensables pour une bonne utilisation 
et compréhension de CP/M sur CPC 464, 664, 6128 et PCW 8256: 
stockage des données, protection contre l'écriture, codification 


ASCII, utilisation des program- 
mes CP/M, les versions CP/M 
2.2 et CP/M plus (3.0)... et la 
structure interne de CP/M pour 
les programmeurs avancés. 
(Réf. ML 128) 149 FF. 220 p. 


Le livre du lecteur 
de disquette 


Tout sur la programmation et 
la gestion des accès disque 
avec les CPC 464, 664, 6128 
et le FLOPPY DDI-1! Profitez 
des nombreuses informations, 
des précieux conseils et exem- 
ples accompagnant chaque 
chapitre. Disposez des listings 
d'utilitaires ultra-performants 
comme un moniteur disque, 
une gestion de fichiers rela- 
tifs.. ainsi que d'un listing du 
DOS commenté, de la descrip- 
tion électronique de l'appareil 
et d'une gestion de fichiers. 
(Réf. ML 127) 149 FF. 

(Réf. ML 227) 269 FF avec 

la disquette. 390 p. 


Les indispensables CPC 


Trucs et astuces pour l'Amstrad CPC 
(Réf. ML 112) 149 FF. 


Programmes Basic pour les CPC 
(Réf. ML 119) 129 FF. 


Graphismes et sons CPC 464 
(Réf. ML 124) 129 FF. 


Des idées pour les CPC 
(Réf. ML 132) 129 FF. 


La bible du CPC 664/6128 
(Réf. ML 146) 199 FF. 


Le Basic au bout des doigts CPC 
464, 664, 6128 

(Réf. ML 118) 149 FF. 
Communications, modem et 


Minitel sur Amstrad CPC 
(Réf. ML 151) 149 FF. 
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PISTE (TRACK) 


Beaucoup de nos lecteurs 
n’ont jamais osé avouer qu'il 
leur arrivait de ne pas pou- 
voir recharger un pro- 
gramme pourtant enregistré. 
Il ne faut pas croire que cela 
ne concerne que les débu- 
tants... Oh que non ! Soit par 
‘’erreur technique’’, soit par 
manque d'organisation. 


La chose est plus fréquente sur cassette 
que sur disquette, nous insisterons donc 
sur ce premier cas. Ne croyez pas que 
nous allons énumérer les soixante-dix 
commandements des supports magné 

tiques, vous les avez certainement lus 
(ou survolés) plusieurs fois. 

Le mieux est de faire connaissance avec 
certains petits détails de fonctionne- 
ment, qui ne figurent pas dans le manuel 
et qui vont alors élucider certains 
‘’mystères malheureux'' dont vous avez 
peut-être été victime. Si ce n'est pas 
(encore) le cas, vous saurez alors vous 
éviter de commettre telle ou telle gaffe 
car vous devinerez le risque. Et si un mal- 
heur survient, par étourderie, ces notions 
nouvelles vous permettront souvent de 
réparer les dégâts. 


N'est-ce pas plus efficace que des con 
seils ‘‘bruts'' ? 

L'autre ennemi des sauvegardes est le 
manque d'organisation : au début, on ne 
se méfie pas et l’on est tout surpris de 
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se trouver piégé dans un désordre irré- 
versible. Des conseils ? Non, mais plu- 
tôt des suggestions contre cela. Vous 
pourrez alors choisir ou établir l'AUTO- 
DISCIPLINE qui convient le mieux à votre 
personnalité. 


Les cassettes audio 


Elles et les platines cassettes ont été 
conçues pour le son, UNIQUEMENT. Les 
utiliser en informatique constitue une 
prouesse technique ; on peut donc tolé- 
rer certaines servitudes et des perfor- 
mances très inférieures à celles des dis- 
quettes. Seul intérêt des sytèmes casset- 
tes : le prix et c'est un argument de 
poids... A titre de consolation, sachez 
que l'on ne pourrait pas enregistrer de la 
musique par un lecteur de disquettes, 
c'est techniquement impossible. Je 
m'explique : 


L'ensemble bande magnétique + tête de 
lecture-enregistrement l'électronique 
qui lui est affectée a été étudié pour 
reproduire fidèlement des variations très 
rapides de volume (le son). Autrement 
dit, il sait magnétiser la bande à des 
niveaux très variables, et sans à-coups, 
de zéro à ‘’très fort'’. Or, en informati- 
que, on se moque de ces milliers de 
niveaux possibles ! On n'en veut que 
DEUX, qui seront baptisés ‘1’ et ‘0’... 
L'ordinateur qui veut transmettre ces bits 
1 et O doit alors les CODER en un signal 
‘’musical'"” afin qu'il puisse être enregis- 
tré, compris, par un magnétophone. 


F à (A É 


pra 


ER 


Ce codage musical est très complexe, 
non pour le secret mais pour assurer une 
sauvegarde et une lecture sans risque 


d'erreur. Un exemple : un logiciel du 
commerce va représenter environ 
300 000 bits. Si un seul est perdu, l’oc- 
tet en question est incomplet, d'où une 
incohérence, d'où plantage quasi immé- 
diat ! Le tristement célèbre ‘‘read error 
a'’ (ou ‘‘b’’). Donc aucun droit à l'erreur, 
même 1 sur 300 000... Voilà pourquoi 
j'ai parlé de prouesse technique. Notez 
qu'en cas de ‘‘loupé’”, un lecteur de dis- 
quettes fait (à notre insu) une relecture 
du passage, mais avec un magnéto cas- 
settes, c'est bien sûr impossible. 

Avec une platine K7 ordinaire, telle celle 
du CPC 464, la fréquence maxi se situe 
vers 6 à 8000 Hz (= signaux, impulsions 
par seconde) ; au-delà, le niveau à la lec- 
ture s'écroule et la ‘pureté’ avec. Une 
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sauvegarde à 2000 bauds (= 2000 bits 
par seconde) obtenue par la commande 
SPEED WRITE 1 doit correspondre à peu 
près à un signal modulé de l'ordre de 
4000 Hz. Il existe des utilitaires qui per- 
mettent de sauvegarder à des vitesses 
très supérieures, 4000, 6000 bauds. Un 
petit calcul rapide vous permet d'évaluer 
le risque ainsi encouru… 

Une bande ‘‘ferro’’ ordinaire de bonne 
marque peut aller jusqu’à 13000 Hz 
environ ; une de la meilleure qualité pos- 
sible approchera les 20000. Mais le gain 
sur une platine K7 de bas de gamme sera 
infime, quelques centaines d’hertz seu- 
lement. Donc inutile d'alimenter votre 
464 avec des bandes super HI-FI. Et sur- 
tout pas avec des bandes à l’oxyde de 
chrome (CrO2) car il ne pourrait pas effa- 
cer complètement l'enregistrement pré- 
cédent ! 

Techniquement, on pourrait enregistrer 
et lire à 6000 bauds sur une platine cas- 
sette HI-FI avec une cassette au 


chrome ; mais je vous signale que le prix 
atteint serait alors celui d’un lecteur de 
disquettes. 


La qualité d'enregistrement sur cassette 


Le manuel préconise de sauvegarder à 
1000 bauds et c'est SPEED WRITE O qui 
est pris par défaut. Je ne suis pas du tout 
d'accord face à un tel pessimisme. Le 
2000 bauds est fiable sur des cassettes 
‘’ferro’’ de bas de gamme mais de mar- 
que connue, ou avouée, telles celles de 
grandes surfaces (Carrefour, Mam- 
mouth...). 

En revanche, l'auteur déconseille très 
vivement les marques bidon ou inexis- 
tantes du genre ‘Trois C-60 sous blis- 
ter pour 10 francs'’. Il s'agit de rebuts 
de fabrications conditionnés par des offi- 
cines plus ou moins fantômes : Enduc- 


tion souvent irrégulière (surépaisseurs en 
vagues ou manques), niveau de repro- 
duction très faible et bruit de fond impor- 
tant. Pour enregistrer grand-père passe 
encore, mais surtout pas pour l'informa- 
tique ; même pas à 1000 bauds. 

Une autre gaffe consiste à utiliser de la 
C-120, car le support est trop mince, 
trop fragile pour une mécanique non HI- 
FI ; d'autre part, on observe souvent une 
faible copie du signal magnétique d'une 
spire à l’autre. 

Revenons au signal codé : il n’y a pas que 
la fréquence qui compte, il y a aussi le 
volume à la lecture. Il semblerait, après 
examen (difficile) à l'’oscilloscope, qu'il 
y ait DEUX niveaux (amplitudes) dans les 
signaux. Conséquences, si le niveau 
moyen est trop faible, pas de détection ; 
s'il est trop fort (saturation), les niveaux 
‘‘’bas'” seront presque aussi forts que les 
‘’hauts'” et là, pas de décodage possible. 
Avec un CPC 464, aux réglages fixés en 
usine, on ne cours pas ce risque. Sauf 
si on veut dupliquer notre précieuse cas- 
sette par copie entre deux magnétopho- 
nes. 


Il faut savoir qu'un magnétophone non 
HI-FI est équipé d’un dispositif électro- 
nique assez farceur, le C.A.G. ou ‘‘con- 
trôle automatique de gain’’ qui règle 
automatiquement le volume à l'enregis- 
trement, ce qui va ‘‘comprimer’’ notre 
signal. C'est très bien pour la parole, 
mais nuisible en musique et en micro- 
informatique. Le niveau moyen à la lec- 
ture est plutôt faible, parfois à la limite 
de ce que peut tolérer le 464. Donc, pour 
dupliquer votre bande, vous pouvez la lire 
sur un magnéto ordinaire, mais il faut 
enregistrer sur une platine HI-FI en posi- 
tion ‘‘volume manuel”, et assez fort, 
mais sans saturer. 

Les éditeurs de logiciels exploitent sou- 
vent ce fait pour limiter la piraterie de 
leurs cassettes : celles-ci sont volontai- 
rement enregistrées à des volumes fai- 
bles et avec peu d'écart entre les deux 
niveaux, à ras de la tolérance des CPC 
464. Ainsi, une copie faite entre deux 
magnétophones conduira à l'échec au 
chargement. Parfois, ils ‘’envoient le 
bouchon trop loin’” et l'original est pres- 
que impossible à charger. À ce propos, 
on se souvient d'une certaine série de 


‘’SORCERY"’ qui fut un désastre, envi- 
ron 70 % de retours au dire d’un ven- 
deur FNAC... 


Le cycle d'un enregistrement cassette 


Supposons la sauvegarde d'un pro- 
gramme BASIC de 5000 octets. 

— Pendant quelques secondes, silence 
mais le magnéto tourne : ne croyez sur- 
tout pas que cette pause au départ soit 
suffisante pour passer l’amorce transpa- 
rente de la cassette | 

— C'est tout d’abord l'enregistrement de 
ce que l'on appelle /'étiquette du pro- 
gramme (ou du fichier) : on y trouve la 
vitesse 1000 ou 2000 bauds, le type 
(BASIC, BASIC protégé, binaire ou 
ASCII), le nom de baptême et la taille 
exact en octets, d'où le nombre de 
‘’blocks''. 

— La succession des blocks de 
2048 octets maxi. Chacun débute par 
une mini-étiquette rassemblant le nom, 
le numéro de block et sa taille exacte. 
Pour nos 5000 octets, on aura donc 
deux blocks complets, plus un troisième 
pour les 1000 octets restants. 

A la lecture, même scénario, mais à la 
fin de chaque block, l'ordinateur vérifie 
que le nombre d'octets entrés est égal 
à ce qui était annoncé dans l'étiquette, 
sinon il affiche ‘‘read error'’. 

A la fin du dernier block se trouve un 
signal de fin : il sera exécuté s'il n'y a 
pas eu de ‘‘’read error’ dans un des 
blocks. Si c'est malheureusement le cas, 
le magnéto continuera de tourner après 
cette fin non validée. Conclusion, si un 
‘‘read error’ apparaît, il est inutile de 
poursuivre le chargement, c'est sans 
appel ! 


A présent, parlons des disquettes : 


Constitution d'une disquette 3° 


Dans le boîtier se trouve un disque de 
plastique enduit sur ses deux faces, 
découpé à l'emporte-pièce. Sa ‘‘rigidité’” 
est à peu près celle du papier de cette 
revue. Des feutres de guidage assurent 
une pseudo planéité. | comporte deux 
trous, un central renforcé par un solide 
moyeu d'entraînement ét un petit excen- 
tré, d'environ 3 mm de diamètre, qui va 
servir à repérer le début de chaque tour 
(par une cellule photo-électrique). 
Insistons sur le fait que ce disque magné- 
tique est uniforme, comme une feuille de 
papier non ligné. Le fabricant ignore le 
nombre de pistes que vous désirez y 
mettre, c'est à l'utilisateur de tracer ses 
pistes, c'est le rôle du FORMATAGE : 
Celui-ci va tracer 40 pistes de guidages 
concentriques et sur chacune, neuf repè- 
res de SECTEURS ; la position du petit 
trou permet alors de numéroter ces sec- 
teurs. Le drive peut alors écrire sur cette 
face de disquette formatée. Un secteur 
peut contenir 512 octets. Calculons la 
capacité d’une face de disquette 
512 x 9 x 40 = 184 320 octets, ce 


- 
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qui, divisé par 1024, donne 180 kilo- 
octets. 

Le principe physique de la magnétisation 
de ces aimants microscopiques, enrobés 
dans le vernis de la disquette, est fon- 
damentalement différent du principe des 
bandes : au lieu de lire des variations 
continues de forces d'aimantations, on 
se contente ici d'observer des change- 
ments brutaux de polarités magnétiques, 
‘’nord'’ ou ‘‘sud'’. C’est plus compliqué 
que cela mais je simplifie. Avantage, la 
vitesse est de l’ordre de 120 000 bauds, 
soixante fois plus rapide que sur bande ! 


Les trois types de formatages 


La commande FORMAT sous CPM va, 
après formatage, enregistrer sur les deux 
premières pistes un programme de 9 kilo- 
octets que l’on appelle ‘‘SYSTEME"’ ou 
‘’DOS’’ ou ‘‘CPM''. Il va compléter 
l'AMSDOS résidant dans les CPC 664 et 
6128 où l'interface drive des 464. Grâce 
à cela, nous pourrons taper des ICPM. 
On dit que cette face de disquette est 
‘’formatée Système’’. Certes, on a perdu 
9 kilo-octets, mais c'est vivement 
recommandé par l’auteur, prudence 
oblige. 

FORMAT V (V comme Vendeur) a peu 
d'intérêt pour nous c'est idem 
‘’système’’ mais sans l'enregistrer tout 
en RESERVANT SA PLACE. On pourra 
le transférer ensuite par le programme 
SYSGEN de la disquette CPM. Pour- 
quoi ? Parce que sile Système est indis- 
pensable sur tel logiciel du commerce, 
l'éditeur n’a pas le droit de le ‘’vendre’” 
avec son produit ; c'est à l'utilisateur 
final d'y copier le sien. Une des lois sur 
le COPYRIGHT ; sans commentaires. 


FORMAT D donne une disquette forma- 
tée DATA. Toute la place est disponible ; 
tous les logiciels du commerce sont for- 
matés DATA. Mais pour les nôtres, qu'il 
s'agisse de programmes ou de fichiers 
personnels, je vous déconseille forte- 
ment cette fausse économie car un jour 
vous serez piégé par l'absence du 
Système. Impossible de le rajouter 
ensuite par SYSGEN. Vous pourrez cal- 
culer que ces 9 Ko si souvent utiles 
représentent un ‘‘gaspillage’’ de 75 cen- 
times par face ; donc une très mauvaise 
économie. 

Quand au FORMAT | ‘’conforme IBM 
PC'' j'en cherche encore une application 
pratique, car cela concerne les disquet- 
tes IBM PC formatées en CP/M (jamais 
vues |!) et comme ces micros utilisent les 
formats 5’ 1/4 ou 3°’ 1/2... 


Le catalogue d’une disquette 


C'est la table des matières, le descriptif 
de tout ce qu'il y a sur une face de dis- 
quette. Le catalogue se réserve 2 kilo- 
octets ; c'est pourquoi il reste 
180 — 2 = 178 Ko sur une disquette 
formatée DATA et 180 — 2 — 9 = 
169 Ko sur une formatée Système. 
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Il se loge sur la première piste d’une dis- 
quette DATA, mais À LA SUITE du pro- 
gramme Système si la disquette a été 
formatée Système ou Vendeur. 

Cette plage réservée correspond à un 
maximum de 64 noms de programmes 
ou fichiers. Chacun d’entre eux est réfé- 
rencé comme suit : 

— Le numéro de USER (généralement O) 
qui est une sorte de classement par 
groupe, utile avec disque dur mais de peu 
d'intérêt sur disquette. 

— Le nom du fichier, ainsi que certains 
paramètres optionnels, BASIC protégé, 
non effaçable par ERA, invisible par CAT 
ou DIR, etc. 

— Enfin, la LOCALISATION, les numé- 
ros de pistes et de secteurs où il a été 
enregistré. 


La gestion de la disquette par CP/M 


Comment se passe un effacement de 
fichier par ERA ? Ultra simple : dans le 
catalogue, le numéro de USER devient 
229, c'est tout ! Deux conséquences : 
le nom n'apparaît plus par CAT ou DIR. 
Le contenu du fichier ou programme est 
toujours intact, mais les zones qu'il 
occupait sont désormais disponibles 
pour d'autres sauvegardes, lorsque la 
place sur disque deviendra insuffisante. 
Il est alors possible de ressusciter un 
fichier effacé par erreur en remplaçant ce 
229 par O, (sauf s’il a été écrasé par 
d'autres sauvegardes) ; par exemple, 
avec le bon vieux logiciel ‘’ODDJOB''. 
Lorsque l'on a fait le ménage en effaçant 
de nombreux petits programme pour y 
loger un gros, on devine alors que ce der- 
nier va ‘‘boucher les trous'” çà et là, il 
peut être fragmenté, éparpillé sur des 
pistes non consécutives. Ce n’est pas 
très gênant, au plus un léger ralentisse- 
ment pour le chargement. 

Ceci amène une remarque concernant la 
confidentialité : il est arrivé qu'une per- 
sonne serviable se trouvant à court de 
disquettes vierges pour délivrer une 
copie d'un petit programme, prenne un 
double de disquette très confidentielle et 
en ‘‘l’effaçant’’ d'abord par ERA *.* : Si 
le destinataire est du genre curieux, il lui 
faudra moins d'une minute pour remet- 
tre au catalogue la plupart des titres effa- 
cés. Rappelez-vous que la seule méthode 
pour effacer réellement une disquette est 
de la reformater. 


Vous avez sans doute été surpris par le 
fait qu’un enregistrement même très 
court occupe 1 kilo-octet lorsque l'on 
tape CAT. L'explication est que le CPC 
enregistre par BLOCS de 1024 octets, 
soit deux secteurs à la fois. (Cela rappelle 
la sauvegarde sur cassette par ‘‘block'" 
de 2 kilo-octets). Supposons 15 fichiers 
de 24 octets ; ils feront 15 titres de 1 
Ko, mais sur la disquette, il y aura ainsi 
15000 octets ‘‘’gaspillés’’, car les com- 
pléments de blocs sont en quelque sorte 
remplis par des ‘‘blancs’’. (Même chose 
sur cassette pour le dernier block). 
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La duplication de disquettes 


Une disquette au contenu précieux doit 
être dupliquée. On ne sait jamais quel 
malheur il pourrait arriver à un exemplaire 
unique. L'autre cas est une copie pour 
un ami. Pour cela, il faut faire la distinc- 
tion entre deux méthodes ; la copie 
‘physique’ et la copie ‘‘logique’’ : 

— La copie physique est comparable à 
une photocopie de l'original, car c'est 
une reproduction fidèle secteur par sec- 
teur. C’est ce que l’on obtient par DISC- 
COPY ou par certains logiciels de 
‘’copies autorisées’’ tels que ODDJOB, 
HERCULE, DISCOLOGIE, etc. Avantage, 
c'est très rapide et le formatage de la 
copie est simultané. Inconvénient, la 
copie conserve les séquelles de l'original, 
à savoir les fichiers ‘‘’effacés'’ et les 
éventuelles dispersions d’un fichier un 
peu partout sur la disquette. 

— La copie logique ou ‘‘séquentielle’” 
consiste à recopier les divers titres un par 
un sur une disquette préalablement for- 
matée. C’est plus long, mais c'est plus 
‘‘propre’’. En effet, on peut faire une 
copie sé/ective ou totale des titres et les 
fichiers ‘‘dispersés’” se retrouvent alors 
‘‘recompactés'’. C'est le cas du FILE- 
COPY *.* du CP/M ou COPYFILE ou PIP 
si vous possédez un second drive. Deux 
remarques : les fichiers ‘‘cachés'’ (non 
visibles par CAT ou DIR) ne sont pas 
copiés. Certains logiciels plus perfor- 
mants que FILECOPY exigent que l'ori- 
ginal soit formaté Système. 


Les incompatibilités entre les CP/M 


Même chez AMSTRAD, il existe plu- 
sieurs versions de Systèmes CP/M (ou 
DOS = Disc Operating System) et la 


compatibilité entre elles est loin d'être 
parfaite ! (Si cela peut vous consoler, 
c'est bien pire encore chez les IBM PC). 
Avec le CPC 464, nous ne disposons que 
du CPM 2.2, tandis que le CPC 6128 est 
livré avec CPM 2.2 et CPM PLUS. Le 
PCW ne possède que ce dernier. La ver- 
sion ‘PLUS’ est plus étoffée que la 
2.2", mais le drame vient du fait que 
sa façon d'écrire et de formater soit légè- 
rement différente ; bien qu'il s'agisse 
toujours de 40 pistes en 9 secteurs. 
Un 464 a du mal à lire une disquette 
créée sous CPM PLUS. Le possesseur 
d'un 6128 en usage général a intérêt à 
adopter le CPM 2.2 et ce, pour pouvoir 
profiter d'échanges avec les possesseurs 
de 464. Réserver le CPM PLUS pour des 
échanges de fichiers ASCII avec des 
PCW ou pour se livrer à des ‘’magouil- 
les du second degré”’ avec le DOS. 


C'est terminé pour les connaissances 
théoriques, abordons les astuces pour 
mieux assurer nos sauvegardes : 


L'organisation des cassettes 


Pour un début de cassette, il est conseillé 
de démarrer la sauvegarde sur le COL- 
LAGE amorce-bande, en bobinant à la 
main à l’aide d’un corps de stylo, sinon 
l'enregistrement commencera sur cette 
amorce. En revanche, il est dangereux de 
confier ce bobinage au magnétophone 
car, étant très imprécis, la lecture pour- 
rait commencer par le début d'une ‘‘éti- 
quette’’ obsolète avant de lire la bonne... 
Lorsque l'on enregistre plusieurs petits 
programmes indépendants sur une 
même cassette, tout en notant les repè- 
res compteur pour les retrouver, la grave 
erreur est de les mettre immédiatement 
à la suite les uns des autres. Deux rai- 
sons à cela : 

— on ne pourra augmenter la taille d'un 
programme sans effacer le début du sui- 
vant ; 

— le pré-positionnement précis par le 
compteur est long à réaliser. 

Laissez plus de 10 unités de compteur 
entre deux titres et démarrez sur des 
multiples de 10. Exemple, une sauve- 


garde se termine sur ‘36’, faites la sui- 
vante à partir de 50. Ainsi pour rechar- 
ger ce titre, il suffira de se positionner 
‘’un peu avant 50’. Remarquez que lais- 
ser tourner de 45 à 50 prend moins de 
temps que de fignoler un positionne- 
ment. D'autant plus que les repères du 
compteur ne sont pas d'une fidélité 
remarquable. 

Ne pensez pas au petit gaspillage que 
cela représente, car de toute façon, vous 
n'auriez pas rempli cette C-60. De 
même, n'utilisez pas la face B : déjà 
qu'un programme sur cassete est long 
à charger, si on y ajoute encore le temps 
d'un rebobinage complet | 

Si vous enregistrez sur un magnéto exté- 
rieur stéréo (CPC 664 et 6128) pour lire 
sur un 464, il vous faut relier ensemble 
les canaux gauche et droite. Sans cette 
précaution, le signal ne sera que sur la 
voie gauche ; or, le 464 lit les deux pis- 
tes et s’il reste sur la voie droite de la 
musique que vous aviez cru effacer par 
ce SAVE... 

Possesseur d'un 464, vous tapez un long 
programme : bien sûr, vous en faites une 
sauvegarde tous les quarts d'heures au 
cas où... (surtout par temps d'orage). 
Mais il serait absurde de reprendre cha- 
que fois le même début de cassette : 
imaginez une coupure de courant en 
cours de sauvegarde. Que restera-t-il ? 
Rigoureusement rien ! 

Deux méthodes au choix : ou bien on a 
deux cassettes utilisées alternativement 
(après rebobinage) ou une seule où l'on 
prend toujours la suite, mais en notant 
chaque fois le repère compteur du 
départ. Le risque est de ne plus savoir où 
est la toute dernière version. Alors plu- 
tôt que de retaper chaque fois SAVE 
‘’MACHIN'', prenez l'HEURE comme 
nom. Ainsi, SAVE ‘1506 signifiera 
sauvegardé à 15 heures 06 minutes ; 
‘’MACHIN"' sera pour la version défini- 
tive. 


L'organisation des disquettes 


Reprenons le problème précédent de sai- 
sie de listing. Là, il faut DEUX disquet- 
tes distinctes. Ne comptez pas trop sur 
les versions .BAK à cause de la loi de 
MURPHY (la loi de l'em... maximum) : si 
une coupure survenait lors de la ré- 
écriture du catalogue, on perdrait toute 
la disquette ! Ici encore, prenez l'heure 
comme nom. 

Ne mettez pas un point d'honneur à rem- 
plir complètement vos disquettes, 15 
kilo-octets disponibles par face est un 
minimum. Songez que vous serez un jour 
amenés à modifier l’un d'eux et qu'il est 
grotesque d'être bloqué par un ‘‘disc 
full" parce que l’on n'avait pas prévu 
l'encombrement du .BAK... 

Sur le carton des boîtiers de disquettes, 
vous notez le contenu de chaque face ; 
mais inscrivez aussi AU CRAYON les 
kilo-octets encore disponibles. Cela sera 
très utile pour savoir sur laquelle vous 
allez loger ce programme de 37 Ko. 


Il'est très difficile d'écrire sur le papier 
trop glacé des étiquettes de disquettes, 
surtout les AMSOFT. Pour que le stylo- 
bile ou le crayon ‘’prennent'', gommer 
énergiquement ce papier avant d'écrire ; 
ou collez par-dessus une étiquette adhé- 
sive au papier bien mat. Pour faire vos 
étiquettes à l'imprimante voir ‘CPC’ n° 
25 page 62. 


Si vous aimez programmer, réservez- 
vous une disquette spéciale que vous . 
nommerez ‘’TRAVAIL'’. C'est l’établi sur 
lequel on tape le nouveau programme, où 
il ne sera d’ailleurs qu'en transit, les 
autres titres y sont à demeure car ce sont 
vos programmes d'aide à la programma- 
tion, ainsi que les sous-programmes uti- 
litaires que l’on recharge par MERGE. Le 
gain de temps est alors considérable. 
(Voir du même auteur ‘PROGRAMMES 
UTILITAIRES POUR AMSTRAD, SORA- 
COM). 

Le CAT sur telle disquette montre une 
vingtaine de titres dont la plupart sont 
des sous-programmes ou des fichiers. 
Comment repérer les quelques ‘’noms de 
lancements’” sur lesquels on fait RUN ? 
(Ne vous fiez pas à votre mémoire...). || 
suffit de les renommer en mettant 
comme premier caractère le signe moins. 
Ainsi, TRUC.BAS deviendra -TRUC.BAS. 
Et comme CAT affiche les titres par ordre 
alphabétique, ils seront regroupés en tête 
de liste. 


Conclusion 


C'est une évidence de dire que pour être 
un bon automobiliste, il faut avoir assi- 
milé quelques notions de mécanique 
générale, même si elles ne sont que 
superficielles. | en va de même en micro- 
informatique car il n'y a rien de plus frus- 
trant, démotivant, que de perdre bête- 
ment le fruit de nombreuses heures de 
travail. Pire encore, si on ne sait pas 
pourquoi ! Ces quelques notions vont 
souvent ‘‘faire réfléchir avant d'agir’, 
mais vous permettront aussi de créer vos 
propres ‘‘’astuces de sécurité’. 
Certaines de mes ‘’explications techni- 
ques'’ ont été volontairement très sim- 
plifiées, ce qui va encore m'attirer les 
foudres de certains universitaires puris- 
tes. Le but était d'être compris par tous 
ceux qui veulent avoir confiance 
lorsqu'ils tapent un SAVE. 
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PROGRAMMATION  AVANCEE 


CENTRE DE GRAVITE, 
SPHÈRE D'ENCOMBREMENT 
COMPATIBILITE AVEC 


AMSTRAD-3D 


GESTION PAR BLOCS 


D'OBJETS. 


sa 8 ème PARTIE 


MICRO 


Ex 
Jean-Pierre PETIT 


Jean-Pierre PETIT est directeur de recherche au CNRS. Il est 
l'auteur d'un logiciel de CAO de 120 Ko intitulé AMSTRAD 3D, 
assorti d'un livre du même nom, édité par PSI. Le logiciel a été 
délibérément mis dans le domaine public, c'est-à-dire que vous 
pouvez le copier sur une disquette AMSTRAD-CPC en toute 
tranquillité chez un revendeur ou un ami. Le livre est un gros mode 
d'emploi du logiciel, pour non-programmeur. 
Mais ce programme est riche de ficelles de programmation, liées à 
l'imagerie 3D. Dans cette suite d'articles, Jean-Pierre PETIT 
explique au lecteur toutes ses astuces, ce qui lui permettra peut- 
être de construire lui-même son propre programme de CAO. 


+ REMARQUE 


Certains lecteurs semblent avoir eu 
des difficultés à se procurer la dis- 
quette AMSTRAD-3D. En plein ac- 
cord avec l'éditeur vous pouvez le 
cas échéant adresser une disquet- 
te AMSTRAD vierge à l'auteur, à l'a- 
dresse suivante : 

Jean-Pierre PETIT - Chemin de la 
Montagnère - 84 Pertuis - Vaucluse 
dans un emballage ad hoc, avec vo- 
tre adresse et un mandat de 50 F 
pour le port. 


INTRODUCTION 


Nous savons maintenant créer des 
objets et à partir de ceux-ci créer 
des images. Nous savons que le 
programme permet de traiter un ob- 
jet de 50 chaînes de 12 segments, 
soit une capacité de 600 seg- 
ments. 
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On définira dans cette leçon ce 
qu'on appellera un BLOC, ou en- 
semble d'objets. Celui-ci sera repé- 
ré par un nom de bloc BL$. Dans ce 
fichier bloc les objets composants 
auront pour nom ELS$(K) et K sera 


l'indice de l'objet dans le bloc, et va- 
riera de O à E. Ce qui voudra dire 
qu'un bloc contiendra E + 1 objets. 
Mais le fichier bloc contiendra d'au- 
tres caractéristiques de l'objet : 


ELS$(K) le nom de l'objet 

CO(K) la couleur de l'objet 

GX(K) Les coordonnées du cen- 
tre de gravité de l'objet 

GY(K) 

GZ{K) 

RE{K) La valeur du rayon de sa 
sphère d'encombrement 


Ce sont des données qui auront 
été calculées une fois pour toutes 
et dont nous ferons un certain usa- 


ge. Ceci va nous amener à modifier 
quelque peu les sections de pro- 
gramme intitulées MOD1 et DES et 
en particulier les sous-programmes 
5000 et 8000 (de chargement et 
de stockage d'objets). Ce sont des 
sections que nous avions définies 
dans les toutes premières leçons et 
je n'avais pas voulu vous embrouil- 
ler l'esprit en introduisant tout de 
go un nom d'objet indicé et différen- 
tes caractéristiques liées à celui-ci 
qu'il m'aurait bien fallu expliquer. 


Ce faisant, nous rendrons le logiciel 
que nous sommes en train d'élabo- 
rer compatible avec les fichiers 
présents sur la disquette AMS- 
TRAD-3D, que certains d'entre 
vous possèdent peut-être déjà. 
Bien sûr, ce que nous avons cons- 
truit n'est peut-être pas aussi com- 
plet et aussi performant qu'AMS- 
TRAD-3D, mais une relation de 
cousinage sera au moins établie. A 


la fin de cette leçonil vous sera pos- 
sible de charger n'importe quel ob- 
jet présent sur la disquette AMS- 
TRAD-3D et d'en tirer une image 
avec votre propre programme . 


Je suppose que vous avez par ail- 
leurs créé un certain nombre d'ob- 
jets depuis que nous travaillons en- 
semble, avec les programmes que 
nous avons construits, et que vous 
n'aimeriez pas perdre. Nous allons 
donc commencer par écrire un pro- 
gramme qui permette de transfor- 
mer ces fichiers objets, et de les re- 
stocker. 

Pour ce faire vous allez prendre le 
programme de la dernière leçon et 
y intégrer le sous-programme 
44000, en modifiant par ailleurs cer- 
taines lignes des programmes 
5000 et 8000. 

Fidèles à notre principe nous don- 
nerons ci-après un listing complet 
d'un programme capable de fonc- 
tionner par lui-même. On trouvera 
bien entendu la mention des sous- 
programmes déjà créés. 


ETABLIR ENFIN LE LIEN 
AVEC AMSTRAD-3D 


On remarquera qu'on a garni abon- 
damment la ligne 4, de réservation 


de places mémoire. Cette fois-ci, 


AMIS DU LOTO 


ne gaspillez plus votre mise ! 


Jouez “malin” avec 
LOTO-INFORMATIC 


Le programme d'analyses, 
de sélections et 
de combinaisons de jeux 
dont vous rêviez pour mettre 
le maximum de chance 
de gagner de votre côté 


DOC + CADEAU TRES UTILE 
pour la confection de vos grilles 
gratuitement sous réf. CPC 


INFORMATIC Applications 
BP N 78 - 67800 BISCHEIM 


on aura disposé tout ce qui sera né- 
cessaire, non seulement pour cette 
leçon, mais pour les suivantes. 


Figure 1 : Centre de gravité et 
sphère d'encombrement 


CALCUL DU CENTRE DE 
GRAVITE ET DU RAYON 
D'ENCOMBREMENT 


Si nous lançons ce programme et 
que nous chargions un objet, par 
exemple l'objet CUBE que nous 
avions défini dans une leçon précé- 
dente, et si nous restockons cet ob- 
jet (sous-programme 8000) nous 
constatons quelques différences 
avec l'ancien sous-programme. I 
existe une ligne supplémentaire 


8015 GOSUB 44000 : REM Calcul 
GX,GY,GZ,RE 


qui active un nouveau sous- 
programme. Au moment de l'écritu- 
re des données sur disquette, l'or- 
dre 8025 a également été modifié 


8025 PRINT #9, CO(K), 
GX(K), GY(K), GZ(K), RE(K), 
L : REM, l'objet a (L+1) 
chaines 


En tête du fichier on trouvera consi- 
gnés cinq nombres CO(K), GX(K), 
GY(K),GZ(K),RE{K). Le premier est 
simplement la couleur de l'objet. 
Comme c'est un aspect assez 
secondaire, disons un gadget. 
nous n'expliciterons pas ce point 
pour le moment. Les quatre nom- 


bres suivants sont par contre plus 
intéressants. Ils constituent les co- 
ordonnées du centre de gravité de 
l'objet et la valeur du rayon de sa 
sphère d'encombrement. 


Considérons un objet quelconque. 
Si XT(I,J) représente l'abscisse du 
point d'indice J sur la chaîne |, l'abs- 
cisse du centre de gravité sera la va- 
leur moyenne de ces abscisses, 


soit : 
iL  j=N() 
DD UT 


—— j=0 
D (NO +1) 


1=0 


Expressions analogues pour l'or- 
donnée et la cote du centre de 
gravité. 

Le dénominateur n'est autre que le 
nombre total de points de l'objet (il 
y a N(1) +1 points sur la chaine d'indi- 
ce I). 


L'écriture programmée de cette ex- 
pression est beaucoup moins rébar- 
bative. Elle correspond aux lignes 
44020 à 44090. 

On opère alors un tri des plus sim- 
ples. On calcule la distance R sépa- 
rant tout point du centre de gravité 
(GX(K), GY(K), GZ(K)) et on retient 
en RE(K) la valeur maximale. On est 
alors assuré que l'objet est entière- 


SI VOUS AVEZ L'INTENTION DE CRÉER 
OU SI VOUS AVEZ DEJA CREE 


VOTRE BOUTIQUE 
INFORMATIQUE 


REJOIGNEZ-NOUS AVEC LA FRANCHISE 
SON VIDEO 2000 ET DEVENEZ 
UN DISTRIBUTEUR POINT MICRO POUR 
MOINS DE 20000 F !!! 


DISTRIBUTEUR AGRÉÉ AMSTRAD, 
COMMODORE, ATARI. ORIC et COMPATIBLES PC. 


RENSEIGNEMENTS : 
Tél. 56.91.15.81. | 
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ment contenu dans une sphère si- 
tuée au centre de gravité et de 
rayon RE(K) (figure 1). 


En utilisant le programme donné ci- 
après vous pourrez transformer 
tous les objets que vous aurez 
créés en les restockant sous le mê- 
me nom. 


Ceci fait vous donnerez au sous- 
programme 5000 sa forme définiti- 
ve en transformant la ligne 5025 en 


5025 INPUT £ 9, CO(K), GX(K), 
GY(K), GZ(K), RE(K), L 


GESTION PAR BLOCS 
D'OBJETS 


Nous allons maintenant considéra- 
blement démultiplier notre façon de 
travailler. Jusqu'ici notre structure 
donnée se limitait à des objets, dé- 
crits par des ensembles de coor- 
données de points indicés (XT(I,J), 
YT{(I,J), ZT(I,J)). | était l'indice de 
chaîne et J l'indice de point sur chaî- 
ne. 


Nous allons maintenant introduire 
des fichiers BLOCS, déjà évoqués 
dans l'introduction. Le plus simple 
est de créer un bloc. Pour ce faire; 
vous allez incorporer l'option : 


e-gestion de blocs d'objets. 


dans la ligne 60. Dans la ligne de 
dispatching 230 elle renverra au 
sous-programme 21000, qui en- 
gendrera aussitôt l'affichage d'un 
SOUS - Menu : 


CREATION DE BLOCS 
D'OBJETS 


a - Créer un bloc d'objets 

b - Charger et lire un fichier bloc 

c - Dégraisser un bloc 

d - Détruire un bloc 

e - Copier ensemble standard 

f - Copier un bloc avec ses élé- 
ments 

g - Détruire un bloc + objets 
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h - Compacter un bloc 
i - Fusionner des blocs 


Votre choix : 


Dans ce qui va suivre nous ne déve- 
lopperons que les deux premières 
de ces sous-options, mais la signifi- 
cation des suivantes est assez évi- 
dente. L'opération de dégraissage 
consistera à supprimer certains ob- 
jets dans le bloc. Un ensemble stan- 
dard sera un fichier bloc particulier 
qui sera automatiquement appelé 
lorsqu'on active la sous-option 


c - Travailler sur un objet standard 
qui est présente dans 
a - Créer un objet. 


La ligne de dispatching 21150 ne 
renvoie provisoirement que sur les 
deux premières sous-options : 


a-Créer un bloc d'objets 
----> 1000 
b-Charger et lire un fichier-bloc - 


Pour créer un fichier bloc, il faut dis- 
poser d'objets déjà créés, présents 
sur la disquette. Supposons que 
ces objets soient MAISON, BAS- 
SIN, PORTAIL. Nous voulons créer 
un bloc qu'on appellera RESIDEN- 
CE. 


La séquence 1000 matérialise cet- 
te création de bloc BL$ = "RESI- 
DENCE" 

On demande à l'utilisateur le nom- 
bre d'éléments. En 1040 on rétro- 
grade E d'une unité, puisque le 
nombre d'éléments sera en fait 
(E+1), à cause de l'indexage. Suit 
une boucle de saisie d'indice K. 
L'objet est à chaque fois chargé 
pour constituer les fichiers CO(K), 
GX(K), GY(K), GZ(K), RE(K), partie 
intégrante du fichier bloc. Le sous- 
programme 6000 permet de stoc- 
ker le fichier bloc. 


Le sous-programme 2000 matériali- 
se l'opération inverse. On notera 
en 2070 la boucle de temporisation 
dont la durée est indexée sur le 
nombre d'éléments. 


Si vous vous êtes procurée la dis- 
quette AMSTRAD-3D, ce que je 
vous conseille de faire, vous pour- 
rez utiliser votre propre programme 
pour lire un fichier bloc présent sur 
cette disquette, le fichier STAN- 
DARD. Attention, ne faites pas de 
bêtises avec tous ces programmes 
MOD1 qui portent le même nom et 
ces ordres de chaïînage. Utilisez 
des copies, de grâce. Avant de fai- 
re la moindre sauvegarde, faites 
LIST 1 pour savoir ce que vous sau- 
vez, sinon vous risquez d'écraser 
un programme avec un autre. 

Vous chargerez STANDARD avec 
la séquence : 


e-Gestion de blocs d'objets 
b-Charger et lire un fichier bloc 
LECTURE BLOC 
Nom du bloc ? STANDARD 


Vous verrez apparaitre : 


FENETRE 
SY 

SZ 

BAC 
TABLE 
CHAISE 
ETAGERE 
dodeca 


Qui représente la liste d'OBJETS 
STANDARDS variés fournis sur la 
disquette. 


POURQUOI MANIPULER 
DES BLOCS ? 


Primo on accroît sensiblement la ca- 
pacité segmentaire. Dans la ligne 4, 
de dimensionnement, on voit 
qu'on a prévu de manipuler jusqu'à 
30 objets pour chaque bloc, ce qui 
donne une capacité, toute théori- 
que, de 


30 x 50 x 12 = 18000 segments ! 


Précisons que la disquette AMS- 
TRAD est totalement incapable 
d'héberger de telles données. On 
pourrait alors se demander : pour- 
quoi faire, dans ces conditions ? 

On verra beaucoup plus loin que la 
gestion par bloc trouve toute sa for- 
ce lorsqu'on veut créer des images. 
On pourra par exemple analyser 
chaque objet et voir si sa sphère 
d'encombrement, c'est-à-dire la bul- 
le qui le contient, est visible à tra- 
vers la fenêtre de l'écran. Si cette 
bulle (dont l'image sera un cercle) 
est hors-champ, on laissera pure- 
ment et simplement tomber cet ob- 
jet. D'où un gain de temps absolu- 
ment considérable. 

Le fait de traiter des objets selon un 
bloc est essentiel pour le problème 
de l'élimination des parties ca- 
chées. C'est une chose qu'on abor- 
dera également plus tard. Enfin 
cela conserve aux ensembles mani- 
pulés un certain caractère modulai- 
re, en les rendant “démontables" à 
tout moment, ce qui ne serait plus 
le cas s'ils étaient intégrés selon un 
fichier objet unique (Sous option : i- 
Compacter un bloc). 


DESSIN DE BLOCS OU 
D'ENSEMBLES D'OBJETS 


Nous allons adapter notre program- 
me de création d'images à cette 
idée de gestion de blocs d'objets. 
Vous pouvez évidemment taper ce 
nouveau programme DES de A à Z, 
mais comme il faut toujours éviter 
de se perdre dans un travail inutile, 
nous allons indiquer comment modi- 
fier le listing donné dans la leçon 4 
pour parvenir au même résultat. 
Dans ce qui suivra les modifications 
à apporter au programme précé- 
dent sont indiquées en caractères 
gras. 


Nous allons d'abord intégrer l'op- 
tion e (gestion de blocs d'objets) 
dans la ligne 60. Mais nous ne gère- 
rons pas cette option dans DES. 
Ceci sera le fait de MOD1, donc 
nous créerons l'ordre de chaînage 
ad hoc pour renvoyer à MOD1 dans 
la ligne de dispatching. Ceci revient 
a remplacer la ligne 


230 ON C GOSUB 64000, 64000, 
64000, 5000, 60000, 60000, 
60000, 60000, 60000, 60000, 
60000, 27000, 60000 


par : 


230 ON C GOSUB 64000, 64000, - 
64000, 5000, 64000, 60000, 
60000, 60000, 60000, 60000, 
60000, 27000, 60000 


e est la cinquième lettre de Falpha- 
bet. Maintenant le choix de cette 
option e-Gestion de blocs d'objets 
enverra à la ligne 64000, laquelle 
entraînera le chaînage sur MOD1. 


Il nous faudra ensuite une séquen- 
ce de chargement de bloc. Or nous 
voyons que les lignes 7000-7999 
sont déja occupées dans DES par 
le calcul des paramètres de vision. 
Qu'à cela ne tienne, nous logerons 
cette séquence en 28000-28999. 
Pour ce faire stockez DES dont les 
lignes 60 et 230 viennent d'être mo- 
difiées. Chargez MOD1. Faites: 


DELETE 1-6999 
DELETE 8000-65535 


Il reste la séquence 7000-7999, de 
chargement de bloc. Nous allons la 
renuméroter en faisant RENUM 
9000. Mofifiez la dernière ligne 
pour avoir un 28999 RETURN 


Faites ensuite MERGE"DES 

Votre opération de couture est 
achevée et vous avez intégré dans 
votre programme cette séquence 
28000-28999. 


Une légère modification dans la sé- 
quence 5000-5999, de charge- 
ment d'objet : 
5001 FI-0 : REM FLAG de non 
tracé. 


Ce flag trouvera sa justification plus 
tard. Lorsqu'il est armé à 1 l'objet se 
trouve chargé, mais non tracé (ceci 
désamorce la ligne) 


5065 IF FI = O0 THEN GOSUB 
15000 : REM Tracer 


La présence insolite de ce FLAG se- 
ra expliquée dans une leçon ulté- 
rieure, consacrée à la réalisation de 
PLANS TROIES-VUES. 


On écrira de plus : 


5025 INPUT £ 9, CO(K), GX(K), 
GY(K),GZ(K), RE(K), L REM 
L'objet a (L+1) chaines. 


Continuons ces modifications du 
programme DES. Nous savons que 
quand nous voulons créer une ima- 
ge on nous pose deux volées de 
questions : 


Cheminée 


Maison 


— Bassin 


Figure 2 : Représentation d'un bloc d'objets 
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REPRESENTER UN OBJET 


a-Objet en mémoire 
b-Dessin par éléments 
c-Dessin par bloc 


et 


a-Saisie point de vue au clavier 
b-Saisie écran 


La saisie écran restera une sous-0p- 
tion “muette” pour le moment. 
Nous nous en occuperons plus 
tard. Aujourd'hui nous allons nous 
occuper du dessin par éléments et 
du dessin par bloc. Dans l'ancien 
programme, la ligne 27360 ren- 
voyait exclusivement au sous- 
programme 12000, qui réalisait le 
tracé de l'objet supposé être déjà 
présent en mémoire. Nous allons la 
remplacer par la ligne de dispat- 
ching : 


27360 ON CD GOSUB 12000, 
11000, 10000 REM Type de 
dessin 


par: 


EM MODI 7 Mai 87 (gestion de blocs, programme P11)  >?VF 


IR 
2 IF FD=1 THEN 230 
3F 


D=i: L = - {:REM Initialiser L (L+i chaines dans obj ?AX 


et } 


27360 IF CD = 2 THEN GOSUB 
18000 : REM Saisie elements. 

27370 IF CD = 3 THEN GOSUB 
28000 : REM Charger bloc 
27380 ON C GOSUB 
11000, 10000 

27390 SOUND 1,50 : LOCATE 1,1 
: PRINT "Pressez <Retum>" : 
GOSUB 65020 : REM Signale la fin 
du tracé. 

27998 CD = 0: 

27999 RETURN 


12000, 


Le choix CD = 2 correspond à un 
dessin de plusieurs objets arbitraire- 
ment choisis (n'appartenant pas né- 
cessairement à un bloc). La séquen- 
ce 18000 permet la saisie des-dits 
éléments. 

Le choix CD = 3 correspond au des- 
sin d'un bloc. On appellera donc la 
routine de chargement d'un bloc 
BL$. 

La ligne 27380 correspond à un dis- 
patching vers des SOUS- 
programmes de tracés divers. Le 
sous-programme 12000 est connu, 
mais nous avons ajouté un appel à 
un sous-programme 62000, qui tra- 
ce un cadre. Les sous-programmes 
11000 et 10000 sont d'une lecture 
en principe évidente. 


Il y aura donc un court message so- 
nore en fin de tracé, avec arrêt du 
programme, pour pouvoir contem- 
pler l'image à son aise. 


COMMENT DESSINER UN 
BLOC OÙ UN ENSEMBLE 
D'OBJETS ? 


Supposons que vous ayiez créé 
des objets MAISON, CHEMINEE, 
BASSIN, pylône. Bien sûr, vous de- 
vrez avoir placé ces objets, en X, Y, 
Z, de telle manière qu'ils ne se che- 
vauchent pas les uns les autres. 
Vous pouvez soit les intégrer dans 
un bloc, soit les considérer comme 
des éléments. Après avoir défini le 
point de vue, vous obtiendrez aisé- 
ment une vue de l'ensemble, com- 
meen figure 2. 


CONCLUSION 


Que vous ayiez directement inclus 
ces éléments du modeleur dans le 
travail déja accumulé dans les le- 
çons précédentes, ou que vous 
ayiez réalisé l'union des deux à l'ai- 
de d'un MERGE (attention, si les 
programmes ont deux lignes en 
commun, celles du second s'impo- 
seront comme prioritaires. Il faut 
donc charger d'abord l'ancienne 
version, puis faire agir l'instruction 
MERGE sur la seconde), vous ob- 
tiendrez un ensemble de 17+6 =19 
K. Dans la leçon qui suivra nous ver- 
rons comment créer une section 
programme fort utile : VOIR, qui 
donne les images avec une défini- 
tion automatique du point de vue. 


"4 PRINT" h=": PRINT" i- "PRINT" "2 PRINT" k-" 


76 PRINT “l-Creer une image" ?CH 
89 PRINT“m-": PRINT "n-": PRINT "o-":PRINT"p-" ?PQ 
180 FRINT'q-Quitter" UK 


195 IF EL$ <> "" THEN LOCATE 22,21:PRINT"Objet resident >KC 


"ALOCATE 22,23:PRINT EL$ 


197 IF L<>-1 THEN LOCATE 31,23:PRINT L+i;" ch." >PT 
200 GOSUB 65000: REM Saisie caractere ?EU 
>LK 210 IF C=17 THEN END ?NL 
226 IF C = 12 THEN CHAIN"P12 >UJ 


230 ON C GOSUB 9000,9010,B000,5000,21000: REM etc... oUL 


4 DIM XT (49,12), YT (49,12), ZT (49,12) ,N(49),XE (12), YE (12) NF 


tREM ETC... 

7 GOSUB 24990:REM Choix des couleurs 
19 CLS 

15 PRINT'MENU PRINCIPAL ":PRINT 

29 PRINT'a-Creer un objet" 

39 PRINT'b-Completer un objet" 

49 PRINT'c-Stocker un objet" 

99 PRINT"'d-Charger un objet" 


69 PRINT"'e-Gestion de blocs d'objets":PRINT"#-":PRINT"g >DV 
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999 ERA, "*+.bak":GOTO 19:REM Boucle MENU KB 
EF 1909 REM CREER UN BLOC >QB 
>MB 1910 CLS : PRINT"CREER BLOC D'OBJETS":PRINT ?PC 
>BH 1929 INPUT"Nom du bloc “;BL$ >AF 
AE 1939 INPUT"Nonbre d'elements ";E >6Y 
>6J 1940 E=E-1 >JA 
>DX 1959 FOR K=ÿ TO E >DF 
>DQ 1968 PRINT"Objet numero “:K+i >CA 

1974 INPUT EL$(K):GOSUB 5926:REM Charger objet >QM 


1896 
iiso 
1999 
2466 
2419 
2426 
€ 

235 
2644 
2450 
266 
2474 
2995 
5906 
où1g 


5Saza 


0625 INFUT#9,L:REM L'objet a (L+i: chaines 
9626 FOR I=à TO L : REM Four toutes Îles chaines allant 


de à 


5646 INPUT #9,.N(II: REM Nombre de segments sur chaine 
9094 FOR J=6 TO NTI :REN Four tous les points de ia cha 


NEXT E 

GOSUE 6696: REM Stockage fichier-bioc 
RETURN 

REM LECTURE BLOC 

CLS : FRINT'LECTURE BLOC": PRINT 


FRINT'Bioc “:ELS$:FRINT 
FÜR K=ÿ TD E 

PRINT EL#(H) 

NEXT E 


FOR TT=û TD (E+ii#264 : NEXT TT:REM Temporisation 


RETURN 
REM Chargement objet 


INFUT'"Nom de l'objet “;ELS$(H)2ELS=EL#(K) 


OFENIN ELS$(k) 


a L 


ine d'indice Î 


5664 
5676 
3080 
3999 
CU) 
bÿs 
414 
6926 
CAC) 
Lg 
6956 
CU) 
Ea74 


INPUT #9,4XT(I,J).YTiI, Ji. ZT(I, Ji 
NEXT J:NEXT I 

CLOSEIN 

RETURN 

REM STOCKAGE BLOC 

FRINT'Je stocke le bioc “:EL# 
OPENOUT ELS 

FRINT #9,E 

FOR K=9 TO E 

PRINT #9,EL$(K) 

PRINT #9,C0(K) 

FRINT #9,5X(K) 

FRINT #9,6Y(K) 


6084 PRINT #9,6Z(K) 


CU 


PRINT #9,RE(K) 


6i6ë NEXT K 


6118 


CLOSEOUT 


6993 RETURN 


7006 


REM CHARGEMENT FICHIER BLOC 


7695 PRINT'Je charge le bloc ":BL# 


7919 


OFENIN BL$ 


7924 INPUT #9,E 
7838 FOR K=9 TO E 
7646 INPUT #9,EL$(K) 
7450 INPUT #9,C0(K) 
7666 INFUT #9,6X(K) 
7676 INPUT #9,GY(K) 
7684 INPUT #9,6Z (Ki 
7698 INPUT #9,RE(K) 
7196 NEXT K 

7110 CLOSEIN 

7999 RETURN 

8960 REM STOCKAGE OBJET 


8616 INPUT"Nom de l'objet ";EL$(K):EL#$=ELS$ (K) 
8015 GOSUB 44040:REM Calcul de GX,GY,62,RE 


8629 OPENOUT EL$ (K) 


:VH 
#EY 
2HÈ 
#U4 
:FA 
INPUT"Nom du bloc “:BL$:GOSUE 760G:REM Charger Elo :FH 


?XE 
#CN 


FD 
#MU 
2MD 
#HF 
2RF 
HD 
#LD 
2ŸG 
‘DJ 
3NX 


8625 PRINT #9,CD(E),G£tEr. Gti GZRI RER! LiREM L'OEJ HR 


ET 4 iL+i: CHAIN 


893% FOR 1=4 TO L: REM Four toutes les chaines ailant d »D* 


ebtaLl 


8646 PRINT #9.N(L):REM Nombre de segments sur chaine 
8956 FÜR J=6 TO Nili: REM Four tous les points de ja ch 


aine d'indice Î 

2608 PRINT HS,AT(I. Ji. YTEI, Ji.ZT(I, Ji 
8474 NEXT J:NEXT I 

8656 CLOSEOUT 

8999 RETURN 

Qu REM CREER UN OBJET 

9995 RETURN 

14906 REM INCORFORER LA CHAINE 4 L'OBJET 
14999 RETURN 

18606 REM DISCRIMINER ARCTANGENTE 

18999 RETURN 

21966 REM GESTION DE BLÜCS D'OBJETS 
21616 CLS :FRINT'GESTION DE BLOCS D OBJETS": FRINT 
21924 FRINT'a-Creer un bioc d obiets" 
21936 PRINT"'b-Charger et lire un tichier bloc" 
21544 PRINT'c-Degraisser un bloc" 

21956 PRINT'"d-Detruire un bloc" 

21669 FRINT'e-Copier ensemble standard" 
21976 FRINT"{-Copier un bloc et ses elements" 
21468 PRINT'"g-Detruire bioc+obiets" 
21696 FRINT'"'h-Compacter bloc" 

21196 FRINT'1-Fusionner des biocs" 

21116 GOSUE 85060 

21126 IF ASC(C$)=13 THEN 21999 

21136 IF C:7 OR C < 4 THEN 21906 

21146 IF ASC(C$)=13 THEN 21999 

21156 ON C GOSUE 1üûu,2400:REM ETC... 
21999 RETURN 

24664 REM CHOIX DES COULEURS 

24999 RETURN 

25044 REM TRACE EN FLAN DE L'OBJET EXISTANT 
25999 RETURN 

2664 REM CREER DES CHAINES 

26999 RETURN 

32004 REM CREER UN CERCLE 

32999 RETURN 

33004 REM CREER ARC DE CERCLE 

33999 RETURN 

34666 REM CREATION OBJET DE REVOLUTION 
34999 RETURN 

35096 REM OBJET D'AXE OX 

35999 RETURN 

36066 REM OBJET D'AXE OY 

36999 RETURN 

37660 REM OBJET D'AXE DZ 

37999 RETURN 

44600 REM CALCUL DE GX,6Y,GZ et de RE 


44919 GX=0:6Y=6:GZ=0:N=G:RE (K)=O:REM Initialisations 


44926 FOR 1=6 TO L: FOR J=6 TO N(I) 
44925 N=N+Îi:REM Compter les points 
44030 GX=GX+AT(I,J) 
44948 GY=GY+YT (I, J) 


#4W 
#DR 


44958 GZ=62+1T(1,J) PK @ 200 GOSUB 65000: REM Saisie caractere EU 


44666 NEXT J:NEXT I ?NG 210 IF C=17 THEN END >NL 
44076 GX(K)=GX/N #L7 220 IF C = 12 THEN CHAIN"P12 >UJ 
44989 GY(K)=GY/N LC 250 ON C GOSUB 9600,9010,8966,5000,21600: REM etc... >UL 
44090 GZ(K)=GZ/N èLF 
44995 REM TRI pour extraire Rmax = RE ?ED 999 !ERA,"*.bak":60T0 10:REM Boucle MENU XEB 
44100 FOR 1=6 TD L:FOR J=û TO N(I) ?1P 1906 REM CRÉER UN BLOC :0B 
44116 R=SQR C(XT(I,J)-GX(K))#CXTCI,J)-GXCK))+CYTT, 7-6 >HJ 1919 CLS : PRINT'CREER BLOC D'OBJETS":PRINT 3PC 
YKDD#(YT (I, J)-GY(K))+(ZT(I,J)-GZ(K) )#(ZT(1,J)-6Z(K))) 1826 INPUT'"Nom du bloc “:BL$ >AF 
44120 IF RE(KI£R THEN RE(KI=R >WJ 1939 INPUT'Nonbre d'elements ";E »6Y 
44130" NEXT JINEXT I ?NE 1946 E=E-1 ÿJA 
44999 RETURN ?FH 1850 FOR K=ù T0 E >DF 
54996 REM CREER UN FRISME UE 1969 PRINT"Objet numero “:K+1 CA 
54999 RETURN ?FJ 1970 INPUT EL$(K):GO0SUB S426:REM Charger objet OM 
66468 REM DEFINITION DU TYFE DE SAISIE DE CHAINE FLANE :YT 1999 NEXT K :VH 
1195 GOSUB 6600:REM Stockage fichier-bloc 2EY 
66999 RETURN 2FF 1999 RETURN HE 
b1069 REM SAISIE ECRAN 3RC 2900 REM LECTURE BLOC :Q4 
61999 RETURN ?FG 2616 CLS : PRINT'LECTURE BLOC":PRINT FA 
65069 REM Saisie caractere ?VB 2629 INPUT"Nom du bloc “:EL$:GO0SUB 7646:REM Charger Elo >FM 
65919 PRINT:PRINT' Votre choix :" F0 c 
65024 C$=INKEYS$: IF C$="" THEN 65026 AH 2035 FRINT'Bloc “:BLS$:PRINT >YC 
65034 C=ASC(C$) >KF 204% FOR K=û T0 € >DF 
65840 IF C>96 THEN C=C-96:G0T0 65535 >CQ 2056 PRINT ELS$(K) :LE 
65050 IF C<96 THEN C=C-64 ?RU 2060 NEXT E àVF 
65535 RETURN ?N6 2670 FOR TT=6 TO (E+1)#208 : NEXT TT:REM Temporisation ?YC 
2999 RETURN ’HC 
5606 REM Chargement objet VI 
5919 INPUT"Nom de l'objet ";ELS$(K):EL$=EL# (K) UD 


5426 OPENIN ELS$(K) :MB 
5025 INPUT#9,CO(K) ,6X(K),6Y(K),GZ(K),RE(K) ,LiREM L'obje >VH 
t a (L+i} chaines 

5639 FOR 1=6 TO L : REM Pour toutes iles chaines allant ?DH 
dal 

5040 INPUT 49,N(I): REM Nombre de segments sur chaine  :XE 
5658 FOR J=9 TO N(I):REM Four tous les points de la cha :CN 
1 REM MODI 7 Mai 87 (gestion de blocs, programme P11BIS >ZR ine d'indice I 


Listing 2 L 


} 5064 INPUT #9,XT(I,J),YT(I,J),ZT(I,J) FD 
2 IF FD=1 THEN 236 >LK 5979 NEXT J:NEXT I >MU 
3 FD=i: L = - 1:REM Initialiser L (L+i chaines dans obj >AX 568% CLOSEIN :MD 
et ) 5999 RETURN 2HF 
4 DIM XT(49,12),YT(49,12),27(49,12),N(49),XE(12),YE (12) NF 6606 REM STOCKAGE BLOC >RF 
:REM ETC... 6995 PRINT"Je stocke le bloc ";EL$ HD 
‘7 GOSUB 24999:REM Choix des couleurs >EP 661% OPENOUT ELS$ »LD 
19 CLS MB 6929 PRINT #9,E AE 
15 PRINT'MENU PRINCIPAL":PRINT >BH 6938 FOR K=û TO E >DJ 
26 PRINT"'a-Creer un objet" AE 649 PRINT #9,EL$ (K) >3NX 
36 PRINT"'b-Completer un objet" ?6J 6956 PRINT #9,CD(K) ?NN 
46 PRINT'c-Stocker un objet" >DX 6960 PRINT #9,6X(K) >ND 
96 PRINT"'d-Charger un objet" :DQ 6976 PRINT #9,GY(K) 2NF 
66 FRINT'e-Gestion de blocs d'objets":PRINT"+#-":FRINT"g >DV 6089 PRINT #9,GZ(K) >NH 
=" PRINT "'h- "2: PRINT" i- "2 PRINT" 3j" PRINT'K-" 6999 PRINT #9,RE(K) >NY 
78 PRINT "l-Creer une image" >CH 6194 NEXT K ?VE 
89 PRINT "'m-":PRINT"n-": PRINT "o-": PRINT "p-" PQ 6116 CLOSEOUT >YJ 
189 PRINT'q-Quitter" >UE 6999 RETURN >HG 
195 IF EL$ <> "" THEN LOCATE 22,21:PRINT"Objet resident :KC 7000 REM CHARGEMENT FICHIER BLOC >BY 
“eLOCATE 22,23:FRINT EL$ 7695 PRINT"Je charge le bloc “;BL$ >H4 
197 IF L<>-1 THEN LOCATE 31,23:PRINT L+is" ch." >FT 7614 OPENIN EL$ >BJ 
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4 INPUT #S,E 


1876 FOR k=6 T0 E 
7644 INPUT #S,ELS$(E) 


7454 INPUT #9,C5(E: 
2864 INEUT #9,GXiki 


7476 INPUT #5,GY(H) 
7066 INPUT #9,GZ{k) 


7496 INPUT #9,RE 1) 

7168 NEXT E 

7114 CLOSEIN 

7999 RETURN 

Büôe REM STOCEAGE DEJET 

8414 INPUT'Nom de l'objet “ELS(RI:ELSSELE (RE: 
8915 GOSUE 44660:REM Calcul de GX.GY,GI,RE 
B624 OPENOUT ELS$(K) 


BUES PRINT #9,C0(K: ,GX CE GY UE) ZIK) REGE) ,LiREM L'OEJ HR 


ET 4 (L+ir CHAIN 


B&36 FÜR I=4 TO L: REM Four toutes les chaines allant à : 


epal 


8644 FRINT #9.N(D):REM Nombre de segments sur chaine 
8656 FOR J=& TO Nil: REM Four tous ies points de la ch : 


aine d'indice Î 

Boëg PRINT #SQXTEI,JIYTEI, Ji ET Ji 

gé74 NEXT JINEXT Î 

BuBà CLOSEOUT 

8995 RETURN 

Güdg REM CREER UN OBJET 

5999 RETURN 

14906 REM INCORFORER LA CHAINE à L'OBJET 
14999 RETURN 

18664 REM DISCRIMINER ARCTANGENTE 

18999 RETURN 

21406 REM GESTION DE ELOCS D OBJETS 

21814 CLS :FRINT'GESTION DE BLOCS D OBJETS":PRINT 
21824 FRINT'a-Creer un bioc d objets" 

21436 PRINT'b-Charger et lire un fichier bloc" 
21446 PRINT"c-Degraisser un bloc" 

21956 PRINT'd-Detruire un bloc" 

21966 PRINT'e-Copier ensemble standard" 
21476 PRINT'f-Copier un bioc et ses elements" 
21886 PRINT"g-Detruire bloc+obiets" 

21994 PRINT'h-Compacter bloc" 

21169 PRINT'i-Fusionner des blocs" 

21116 GOSUB 65666 

21156 IF ASC(CH)=13 THEN 21999 

21136 IF C:7 OR C < 6 THEN 21590 

21144 IF ASC(C$)=13 THEN 21999 

21154 ON C GOSUE 1960,240G:REM ETC... 
21999 RETURN 

24044 REM CHOIX DES COULEURS 

24999 RETURN 

25444 REM TRACE EN FLAN DE L'OBJET EXISTANT 
23999 RETURN 

26044 REM CREER DES CHAINES 

26999 RETURN 

32064 REM CREER UN CERCLE 

32999 RETURN 

33066 REM CREER ARC DE CERCLE 


31A 
NE 
NT 


#N4 


06 


NC 
CH 


;UA 


AT 
>k6 


DVF 
>PG 
V6 
>UK 


2WR 


31939 RETURN FF 
64 REM CREATION OBJET DE REVOLUTION “HC 

7 RETURN :FG 

à REM OBJET L'A:E Üx ‘Lg 
RETURN FH 

J6düG REM OBJET D AXE Ox “LR 
36999 RETURN ëFJ 
37064 REM DEJET D AXE 02 LT 
37995 RETURN FE, 
4d4dué REM CALCUL LE G:,67.62 et ge KE :EN 
416 Gi=biGr=u:Gl=iN=Gs RE (EI SU: REM Initialisations DIE 
34626 FOR 1=û TO Li FOR J=u TO Nil: Il 
44625 NEN+i:REM Compter iles points [HF 
44036 Gi=Gi+iT il, Ji FE 
44649 Gi=GY+YT il, Ji FF 
44650 G2=62+1TiI,J; FE 
44666 NEXT J:NEXT I :NG 
44079 GX(KI=GL/N LI 
44986 Gi(H1=GY/N LC 
44096 GZiri=561/N 3LF 
44995 REM TRI pour extraire Kmax = RE #ED 
44iä FOR I=ù TO L:FOR J=8 TO N(I) #LP 


44116 R=SUR LOET OI, Jh-GX UK CAT CL, J-GX Ke CYT 1,715 :HJ 
YOKRDD#CYT TJ) -GY CE) + CTI, Ji -GZ KR) IT UT. Ji-GZiH) 


44126 IF REURIER THEN RECKI=R :WJ 
4413 NEXT J:NEXT I :NE 
44999 RETURN :FH 
34946 REM CREER UN FRISME ‘UE 
54999 RETURN 3FJ 
bbÿä4 REM DEFINITION OÙ TYFE DE SAISIE DE CHAINE FLANE 7 
84999 RETURN FF 
6166û REM SAISIE ECRAN RÈ 
61999 RETURN :FG 
63006 REM Saisie caractere :VE 
63416 FRINT:FRINT' Votre choix :" :F0 
65024 CH=INKEYS: IF Cé='" THEN 65426 :AH 
&5434 C=ASC (CS) 2ÂF 
65648 IF C:96 THEN C=C-56: 5070 65535 C9 
65856 IF C:986 THEN C=C-464 ‘RU 
65525 RETURN :NG 


1 REM DES 
3 IF FD=i THEN 259 3LE 
5 SOUND 1,26: CLS:PRINT"Fas d'acces direct a DES":PRINT >MD 
:PRINT"Je vous renvois sur MODI...":RUN"P11BIS 


19 CLS 


14 Mai 87 ( Programme PIZ } ?EK 


MB 
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15 PRINT'MENU PRINCIPAL": FRINT 
24 PRINT'"'a-Creer un objet" 

34 FRINT'b-Completer un objet" 
4 FRINT'c-Stocker un objet" 
96 PRINT"'d-Charger un ovjet" 


6% FRINT'e-Gerer un bioc d'objets": PRINT SPRINT gts 


PRINT "'h= "2 PRINT PRINT PRINT" 

74 PRINT "l-Creer une image 

86 PRINT"m-": PRINT "n-": PRINT 'o-":FRINT"p-" 
18% FRINT'q-Quitter" 


195 IF EL$ <> “" THEN LOCATE 22,£1:FRINT"'Obier resident :k 


“:LOCATE 22,23:PRINT Elg 

197 IF Liï-1 THEN LOCATE 31,23:FRINT L+is" cn." 
198 LOCATE 1,22 

244 GOSUB 65644: REM Saisie caractere 

21% IF C=17 THEN END 

226 IF C£1 OR C:17 THEN 14 

225 IF © = 16 THEN GOSUE 17066: G0T0 id 


236 ON C GOSUE 64046,64000, 84000, 5000, 64900, 50000, 808 


248 ERA, "+, BAE" 

999 GOTO 16 

5664 REM Chargement objet 

5961 FI=û : REM FLAG de non trace 

9414 INFUT'Nom de l'objet ";EL#(K):EL#=ELS#(k) 
5924 DPENIN ELS$(K) 


9025 INFUT#9.CO (EH), GX (EI ,6Y(k1,GZ(RI,RE(K ,LIREM L'onje : 


t a (L+i) chaines 

5439 FOR 1=6 TO L : REM Four toutes les chaines allant 
déal 

5646 INFUT #9,N(I}: REM Nombre de segments sur chaine 


5956 FOR J=6 TO N(L):REM Four tous les points de la cha : 


ine d'indice | 

566% INPUT #9,XT{I.J),YT(I,J).ZT(I,J) 

9665 IF F1=6 THEN GOSUE 15006:REM Tracer 

9679 NEXT J:NEXT I 

5684 CLOSE IN 

3999 RETURN 

7494 REM CALCUL FARAMETRES VISION 

7896 CX = XG - XM : CY = YG - YM : CZ = 16 - ZM 
7199 DD = SR (CKæCk + CY#CY ) 


7116 IF DD = 6 AND CI : GA THEN TE = 6: EI=FI/2:6 
OTO 7216 

7126 IF DD 4 AND CE « 6 THEN TE = 6 : EI =-FI / 2: & 
OTO 721% 

7136 KI = ATN (CZ/DD) 

7146 IF CX = à AND CY > 6 THEN TE = FI/2 : GOTD 7219 
7156 IF CX = à AND CY © 9 THEN TE =-F1/2 : GOTO 7210 


7164 TE = ATN (CY/CK) 

7179 IF CX € 6 AND CY à 
7184 IF EX < @ AND CY « 
7196 IF CX < 6 AND CY = 
7209 IF CX = 6 AND CY # 


9 THEN TE = FI + TE 
4 THEN TE = PI + TE 
9 THEN TE = FI 

9 THEN TE = - FI/2 


7219 REM 

7229 REM 

7236 CT = COS (TE) : ST = SIN (TE) 
7249 CK = COS (KI) : SK = SIN (KI) 
7259 XU = CKXCT : YU = CK#ST : ZU=SE 
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7269 XV = - ST : ÿV = CT: = 6 
7276 XW = - SK#CT : YW = - ShsST : 
7339 RETURN 

1ügo4 REM dessin par bioc 

16005 FI=û : REM FLAG trace 

16414 CLS:PRINT'DESSIN DU ELOC":FRINT 
isèd4é FOR KE = 6 TO E 

19656 FRINT ELS$(K) 

19455 NEXT E 

19968 FOR TT =6 TD (E+i)456û : NEXT IT:CLS 
169065 GOSUB 62060:REM tracer cadre 

19565 FOR KE = 4 TD E 
14514 GOSUB 5426:REM 
19526 NEXT KE 

16999 RETURN 

1igué REM DESSIN P&R 
11675 GOSUB 62666 
11199 FÜR E=é TO E 


LS 
EÆ 
nu 
cel 


Charger et tracer 


ELEMENTS 


ii1ié GOSUB S424:REM Charger et tracer 

11129 HNEXT E 

11999 RETURN 

12664 REM Objet deja present en memoire 

12995 IF L=-i THEN CLS:FRINT'Fa5 d objet en memoire. eh :1 
. tarceur !':SOUND 1,56 :FOR TT=1 TO jé: NEXT TT : GÜ 
10 16 


12414 GOSUE 62406:REM tracer cadre 

12824 FOR 1 = @ TO L': FOR J = 6 TO Nil):REM POUR TOUTE 
S LES CHAINES ET TOUS LES FOINTS DE CES CHAINES 
12076 GOSUB 15090:REM TRACE IMAGE ECRAN 

12644 NEXT J:NEXT I 

12999 RETURN 

15004 REM Calcul et trace image 

15444 KL=XT(I,J)-XM 

15059 YLE=YT(I,J)-YM 

15664 ZL=IT(I,Ji-2M 

15496 KA=XL#XU+YL#YU+ZL#2ZÙ 

15106 YA=XL#XV+YLEYV+ZLEZV 

15110 ZA={L#XW+YL4YW+ZL4ZW 

15121 IF XA=6 AND YA=G AND ZA=4 THEN 24=4. 001 
15122 RO = SOR(YAXYA+ZAXZA) 

15125 IF XA=6 THEN B=G6:G0T0 15127 

15126 B=ATN(RO/XA) : E=E#180/FI 

15127 IF XA‘<4 THEN E=B+1864 

15136 IF Ya=6 AND ZA=ù THEN A=96:60T0 15186 
15146 IF ZA=6 AND YA >6 THEN A=-96:G0TD 15184 
15150 IF ZA=4 AND YA<G THEN A=96:G60T0 15184 
15166 A=-ATN(YA/74) : A=A#1E0/PI 

15179 IF ZA<O AND YA :6 THEN A=4-186 

1572 IF ZA <@ AND YA‘à THEN A=A+IB9 

15174 IF ZA <& AND YA =à THEN A=180 

15184 X=B4SIN(A#PI/188:) : Y=B+C0S (A#F 1/10) 
15248 KE=313+X4206/AN:REM COURDONNEES ECRAN 
15250 YE=2064+Y#200/AN 

15264 IF J=6 THEN FLOT XE,YE 

15276 IF J{>6 THEN DRAW KE, YE, 1,6 

15999 RETURN 

18696 REM Acquisition elements 

18616 INFUT'Nombre d'elements ";E:E=E-1 


#Un 


:6ù 


GA 
NE 
3PC 
IC 
?FP 
PU 
>PY 
# AA 


18026 FOR K=9 TO 
(H):NEXT K 

18999 RETURN 
27000 REM REPRÈSE 


JOUEZ, CRÉEZ, APPRENEZ LA MUSIQUE 
AVEC LE SYNTHÉTISEUR MUSICAL TM. PL. 


12 VOIES STEREO pour CPC 464, 664, 6128. 


1 350 F (OPTIONNEL) | | _ se 


THETIS 


Eu ue SE | mr “À 


NET O80F be] 


DISPONIBLES CHEZ VOTRE REVENDEUR - VENTE DIRECTE PAR CORRESPONDANCE 
PORT GRATUIT 


Re LE NUMÉRO 1 DU SON INFORMATIQUE 
BE TECHNI-MUSIQUE 8. PAROLE INFORMATIQUE 
rue Fontaine-du-Bac 63000 Clermont-Ferrand 


E:PRINT'Element numero “:K+1: INPUT ELS$ UT@ 28096 REM CHARGEMENT FICHIER BLOC 
28016 INFUT"Nom du bloc ";BL$ 

>PJ 28924 OPENIN BL$ 
NTER UN OBJET >IR 28030 INPUT #9,E 


27095 CLS >FK 28046 FOR K=ÿ TO E 
27014 PRINT'REPRESENTER UN OBJET":PRINT LY 28050 INPUT #9,EL$(K) 
27029 PRINT:PRINT'"a-Objet en memoire“ ?NN 28669 INPUT #9,C0(K) 
27030 PRINT"b-Dessin par elements" ?LM 28076 INPUT #9,5X(K) 
27646 PRINT'c-Dessin par bloc":PRINT LC 28080 INPUT #9,6Y(K) 


27050 GOSUB 65000 : 


ESSIN 
27955 IF AN <> 6 


PRINT : CD=C:REM STOCKAGE TYPE DE D >DX 28099 INPUT #9,6Z(K) 
28199 INPUT #9,RE(K) 
THEN FRINT'"'Memes parametres de visee ? ?1M 28119 NEXT K 


“:GOSUB 65920: IF C=15 THEN 27560 28129 CLOSEIN 


27160 CLS : PRINT 


“a-Saisie point de vue au clavier“ ?6N 28999 RETURN 


27176 PRINT'"'b-Saisie ecran ":PRINT:GOSUB 65499: CSAISIE= >XD b6008 REM SÜus-pr ogrammes non encore existants 


C:REM STOCKAGE TYPE DE SAISIE 65919 CLS : PRINT"Sous-programme non encore cree. 
27199 PRINT:PRINT"Coordonnees observateur :":PRINT >HK SUB 65029 

27260 INPUT"X="; XM ?NM 66999 RETURN 

27218 INPUT"Y="3;YM 2NQ | 42000 REM CADRE 
27220 INPUT"Z=";2M: PRINT ?VE 2610 CLS 

27236 PRINT"Coordonnees point vise :":PRINT »N | 62015 BORDER 14 
27240 INPUT"X6="; XG >PZ 62026 PLOT 6,8 

27250 INPUT"YG=": YG FC 62030 DRAW 639,0,3 
27260 INPUT"26=": 26: PRINT HV | 462040 DRAN 639,399,3 
27276 PRINT"Ouverture angulaire" KG | 62056 DRAM 0,399,3 
27280 INFUT"20 degres par defaut ";AN$ ?NE 62060 DRAW 6,9,3 
27285 IF AN$="" THEN AN = 26 : GOTO 27354 >DM 62999 RETURN 


27290 AN=VAL (AN$) 
27350 CLS : GOSUB 
27360 IF CD=2 THE 


?LG 64000 REM PASSAGE SUR MODI 
7006:REM CALCUL PARAMETRES DE VISEE ?XE | 64999 CHAIN"P11BIS 
N GOSUB 1B606:REM saisie elements ?UZ | 465000 REM Saisie caractere 


27370 IF CD=3 THEN GOSUB 28046:REM Charger bloc >FR 65019 PRINT:PRINT"Votre choix :" 


27380 ON CD GOSUB 


12099, 11006, 10969 >AN 65029 C$=INKEYS: IF C$="" THEN 65020 


27399 SOUND 1,59:LOCATE 1,1:PRINT'"Fressez <Return>":606 >RV 65038 C=ASC (CS) 


UB 65026 
27998 CD=9 
27999 RETURN 


65040 IF C>96 THEN C=C-96:G60T0 65535 
LJ 65950 IF C<{96 THEN C=C-64 
?PJ + 65535 RETURN 
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vous propose tous les deux mois une sélection des meilleurs lis- 
tings de jeux, éducatifs et utilitaires. Des dizaines de kilo-octets de 
vitamines pour votre Amstrad CPC. 


Si vous êtes abonné, vous le recevrez gratuitement dans votre 
boîte à lettres en même temps que votre CPC ! 

Mais si vous avez des difficultés à vous les procurer, n'hésitez pas 
à nous les commander en utilisant le coupon ci-dessous. 


h| NUCLEAR 
BIORYTHMES 


EU FLIPPER 
| AUTO-CHOC 


UTILITAIRE SE 


JACQUETTES er, 


L 


Merci d'écrire en majuscules. 
SRE un chèque libellé à l’ordre des Editions SORACOM. Retournez le coupon ou une photocopie 
à Editions SORACOM - La Haie de Pan - 35170 BRUZ. 


De ee mme re ra ès er or Rare ren ixucenl amd an re) Ed e7 dE TT 
J DÉFORMATIONS, DAURL Di ee. ut ABF ::\UMDisquette HS! 15: ERA TELLE 140 F 
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{ LE dafeie À + CU NO RNNNEE PR ORSRT SERRE ISF ThDisquettes HS: 2%6..886 para La 140 F 
3 Ê Fan série n° ; Da ARAD METRE AR Rues à à 15 F [] Disquette LÉ Dé bérie A dE à «EU ES 140 F 
OURS ORAENS Ai... SE Re MS, Ir Disquere ns '4ss. se PCR AS, 140 F 

{ ÉANOM Mere... SEA EYE UE 15:P1:Cl'Disquette. HS 57:77, A TRETRT EeS 140 F 

| Chaque disquette comporte tous les programmes du n° hors-série correspondant. Les abonnés à CPC 
bénéficient u tarif unitaire de 110 . les di tt k 

unitaire de pour les disquettes. 
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TRANSFERT 
D'IMAGE 
ECRAN 


CPC vers PE 1512 
ou autre compatible 


M Christophe PAVEN 


OU EST LE PROBLEME ? 


LES MODES ECRAN 


Deux modes écran sont identiques sur CPC et PC : 

— Mode 2 sur CPC = 

SCREEN2 sur PC : 640 x 200 points en deux couleurs. 
— Mode1 sur CPC = 

SCREENT sur PC : 320 x 200 points en quatre couleurs. 


Une chaude nuit d'été, deux heures du mat, 


l'UPSA bouillonne dans un verre, le cendrier 


déborde, quatre cadavres gisent dans la 


poubelle, les mains moites, les yeux 


injectés de sang, vous contemplez votre 
œuvre sur l'écran de votre AMSTRAD CPC 
surchauffé. Vite, on sauvegarde ! 


Quelle est belle cette image ! Et dire qu'il 
va falloir repartir à zéro pour faire la 


même sur PC 1512, encore une nuit blanche 


en perspective... Halte à l'esclavage 


informatique 


CPC et PCompatibles Magazine vous offrent 


dix heures de repos et votre image sur le 


PC. Un petit quart d’heure suffira avec un 


peu d'entraînement. 


La vulgarisation des Compatibles PC élargit 
le champ de diffusion possible des fruits de 


__ votre travail. 


Pour le mode O du CPC, il n'y a pas d’équivalent sur PC, nous 
le laisserons donc de côté pour le moment. 

Toutefois, en SCREENT, le PC équipé d’une carte CGA est moins 
souple que le CPC pour ce qui est du choix des couleurs. Il n’est 
en effet pas possible, du moins sous GWBASIC, de modifier 
séparément les trois couleurs d’avant-plan dans une palette, seu- 
les les couleurs de fond et du bord sont modifiables à volonté 
(avec en commun la luminosité normale ou haute). 


LE SEUL SYNTHETISEUR VOCAL "°c" 


PARLANT VRAIMENT FRANÇAIS 


Rated 
ge Am Sas 
pelle PO aus. 800) 
Une VX 


arlants 
7 logiciels P Lee 
éducatifs À Mer 


NUMERO \ 
05 40 44 17 
A — 


464, 6G4, 


AMPLIFICATEUR } 
(OPTIONNEL) 


545 F 50 


DISPONIBLES CHEZ VOTRE REVENDEUR 


VENTE DIRECTE PAR CORRESPONDANCE 
PORT GRATUIT POUR ACHAT SUPÉRIEUR A 500 F 


LE NUMÉRO 1 DU SON INFORMATIQUE 


TECHNI-MUSIQUE & PAROLE INFORMATIQUE 
rue Fontaine-du-Bac 63000 Clermont-Ferrand 


a 


L'éventail offert est de six palettes de quatre couleurs si l’on 
tient compte de la possibilité de passer les trois palettes de base 
en haute luminosité. 

Attention, sur un moniteur monochrome, l'ordre des niveaux 
de gris ne suit pas les numéros de couleur. 

Pour remanier l’ordre des PEN sur CPC, l’auteur a mis au point 
un petit utilitaire baptisé TRANSPEN qui effectuera la transpo- 
sition en quelques secondes. 


LE CODAGE EN MEMOIRE ECRAN 


Quelque soit le mode écran, ce dernier est toujours divisé en 
deux cents lignes graphiques, nous prendrons comme ligne O 
la ligne supérieure et comme ligne 199 la ligne inférieure. 


e Sur CPC, les lignes sont stockées en mémoire par 
‘’paquets’’ de 25 avec 48 octets d'espace libre à la fin de 
chaque paquet : 
— Le premier paquet comprend les lignes O, 8, 16, 24, 
32..., 192. 
— Le second paquet comprend les lignes 1, 9, 17, 25, 
33..., 198. 
— Le huitième paquet comprend les lignes 7, 15, 23, 31, 
39..., 199. 
e Sur PC, les lignes sont stockées en deux paquets de cent 
avec 192 octets d'espace libre après chacun. 
— Le premier paquet comprend les lignes paires O, 2, 4 6, 
8..., 196, 198. 
— Le second paquet comprend les lignes impaires 1, 3, 5, 
7, 9.., 197, 199. 


Les tableaux 1 et 2 vous donnent les adresses mémoire de tou- 
tes les lignes graphiques pour CPC et pour PC. 

Chaque ligne est codée sur 80 octets, un octet représentant 
huit points en MODE2-SCREEN2 et quatre points en 
MODE1-SCREEN1. 

En MODE2-SCREEN2, le codage des huit bits de chaque octet 
est identique sur CPC et PC : bit 7 = point le plus à gauche 
; bit O = point le plus à droite. 

En MODE1-SCREENT, il n’en est malheureusement pas de 
même. Si chaque point est codé sur deux bits dans les deux 
cas, le couple de bits associé à un point n'est pas le même : 


bis26 |P 


bits 1.5 


Les bits s sont des ordre: poids 2 - Cob L 


En résumé, nous avons toutes les informations dans la mémoire 
de notre CPC, mais dans un.beau désordre (vu d'un PC). 


LES FICHIERS SUR DISQUETTE 


Bien entendu, il eut été trop simple que MS-DOS puisse relire 
un fichier sur une disquette provenant d’un CPC. MS-DOS ne 
sait relire aucun des formats d'écriture de P’AMSDOS ou du 
CPM ; par bonheur, le PC 1512 est livré avec un second système 
d'exploitation : DOS + qui est capable de relire une disquette 
au format CPM. Attention, seul le format CPM-IBM peut être 
relu par DOS +, pas le format dit ‘’ SYSTEME” du CPM 2.2 ou 3. 
Le format CPM-IBM comporte quarante pistes avec chacune huit 
secteurs de 512 octets, la piste O est réservée et le catalogue 
se trouve sur la piste 1. 
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En effectuant une copie de notre fichier image sous DOS +, avec 
comme destination une disquette formatée sous MS-DOS, nous 
obtiendrons un fichier lisible par MS-DOS. 


La partie est presque gagnée | Presque ? 

Un fichier image sur PC (sous GWBASIC) a une longueur exacte 
de 16399 octets, le fichier issu de notre CPC fait 16512 octets 
et toute tentative de chargement se solde par un laconique 
‘’BAD FILE MODE" 


En plus des 16384 octets représentant l’image, le fichier sous 
GWVASIC comporte un en-tête de 7 octets et une ‘’queue’” 
de 8 octets, alors que le fichier issu du CPC comporte un en- 
tête de 128 octets. 

Heureusement, ce cher Alan, dans son ineffable bonté, nous 
a une fois de plus fait don du bistouri permettant une magjis- 
trale transplantation cardiaque entre nos fichiers incompatibles. 
Mais reprenons dans l’ordre et tout d’abord examinons l'envi- 
ronnement nécessaire. 


ENVIRONNEMENT MATERIEL ET LOGICIEL 


Vous devez bien entendu disposer d’un CPC et d'un PC 1512 
ou autre compatible, mais il n’est pas nécessaire qu'ils vous 
appartiennent tous les deux, ni même qu'ils soient dans la même 
pièce. 


Il vous faudra ensuite, côté CPC, un programme capable de 
changer les numéros de PEN de vos images comme TRANS- 
PEN et TRANSIMAGE ci-après ; c’est lui qui va remettre de l'or- 
dre dans les lignes et les bits et vous créer un fichier image de 
16384 octets au standard du PC. 

La suite dépend du mode transfert que vous envisagez. 


CAS DU TRANSFERT PAR LIAISON SERIE RS232 


Si votre CPC en est équipé, c'est certainement la solution la 
plus simple et la plus rapide. Vous pouvez même envisager des 
transferts à longue distance par MODEM. 

Attention toutefois, votre logiciel de communication doit être 
en mesure de ‘‘’passer’’ tous les octets de O à FF (255). L’au- 
teur, ne disposant pas de ce type de matériel, a opté pour la 
solution suivante. 


CAS DU TRANSFERT PAR DISQUETTE 5° 1/4 


e Côté CPC : il faut préparer une disquette 5°” 1/4 au format 
CPM-IBM : Commande : > Format i (sous CPM). Cette com- 
mande n'étant active que sur le lecteur À, dans le cas où votre 
lecteur 5’’ 1/4 est uniquement en lecteur B, il faut d’abord for- 
mater une disquette 3°’ puis la recopier sur le lecteur B avec 
COPYDISC. 

Cette disquette 5’’ 1/4 au format CPM-IBM sera nommée Dis- 
quette n° 1 dans la suite de cet exposé. 


e Côté PC : il est impératif de disposer de DOS + (Disquette 
n° 2). Préparer une disquette SYSTEME sous MS-DOS (Dis- 
quette n° 3), avec la commande : FORMAT A:/S. 

— Y transférer DEBUG et GWBASIC.EXE plus, éventuel- 
lement un fichier AUTOEXEC.BAT exécutant KEYBFR pour un 
PC avec clavier AZERTY. 

Ne pas copier le fichier MOUSE.EXE (les adresses données pour 
l’utilisation de DEBUG ne conviendraient plus). 

— Lancer GWBASIC et taper les lignes suivantes : 

10 SCREEN1,0 : COLOR 0,0 

20 DEF SEG = &HB800 

30 BSAVE‘'IMAGE1’’,0,&H4000 

40 BSAVE‘'IMAGE2’’,0,&H4000 

Lancer ce programme, il va créer sur la disquette deux fichiers 


image-écran. Vous devez créer sur cette disquette autant de 
fichiers ‘‘’IMAGEXx'’ que vous souhaitez y trans- 
férer d'images issues du CPC. | 

Ces fichiers ‘’bidons'’ sont destinés à recevoir le cœur (les 
16384 octets) des fichiers issus du CPC pour devenir de véri- 
tables fichiers image-écran utilisables sous GWBASIC. 


LE PROGRAMME TRANSIMAGE 


Il est composé de deux parties, l’une en BASIC et l’autre en 
langage machine pour obtenir une vitesse de traitement accep- 
table. Un petit chargeur BASIC facilite la saisie et la création 
du fichier TRANSIM.BIN. Le listing d'assemblage commenté est 
joint pour montrer la puissance et la simplicité du langage 
Assembleur. Cette routine traite une image en moins de deux 
secondes alors qu'un programme BASIC équivalent met huit 
minutes environ pour faire le même travail... (cas du MODE1). 
L'emplacement pour insérer ou appeler un logiciel de commu- 
nication est repéré dans le listing BASIC à l'attention de ceux 
qui souhaiteraient utiliser une liaison SERIE RS232. 

Le déroulement du programme oblige le passage par trois éta- 
pes : 


e Sélection Entrée-Sortie : 

Vous devez indiquer au programme l'unité source sur laquelle 
se trouve l'image à traiter et l'unité destination qui recevra le 
fichier après traitement. Afin de ne léser personne, la sélection 
‘’Cassette’’ a été incluse dans le cas où vous n’auriez pas de 
lecteur de disquettes, mais une interface série. 

Si l'unité destination est la même que l'unité source, le pro- 
gramme s'arrêtera avant la sauvegarde pour vous laisser le 
temps de changer de disquette ou de cassette, car le traitement 
de l'image est très rapide. 


e Mode couleurs : 
Le choix du mode écran est capital puisque le traitement est 
différent dans chaque cas. Le choix des couleurs aurait pu être 
facultatif mais il est plus agréable de voir son œuvre dans ses 
couleurs d'origine. 


° Noms Entrée-Sortie : 

En entrée, il est obligatoire. L'extension doit être spécifiée si 
elle est différente de .BIN. 

La longueur du nom est limitée à 12 caractères si l'unité source 
est un lecteur de disquettes, à 16 pour le lecteur de cassettes. 
Le nom en sortie est facultatif, si vous pressez ENTER, il sera 
le même qu'en entrée. 

Le chargement, le traitement et la sauvegarde s'effectuent 
ensuite en quelques secondes. 


DEROULEMENT DE L'OPERATION DE TRANSFERT 


Vous allez dire que je rabâche, mais pensez bien à vérifier la 
concordance des PEN de votre image originale avec les cou- 
leurs des palettes du PC, sinon il faudra recommencer... je vous 
aurais prévenu | 

— Traiter l’image avec TRANSIMAGE, nous supposerons que 
le fichier, sauvegardé sur la disquette n° 1 (5’’ 1/4 CPM-IBM) 
se nomme ESSAI.BIN. 

— Passons sur le PC : démarrer avec la disquette n° 2 (DOS +), 
puis mettre la disquette n° 1 dans le lecteur A et la disquette 
n° 3 dans le lecteur B et taper : COPY A:ESSAI.BIN B: 
Pour ceux qui ont un seul lecteur, le DOS demandera d'intro- 
duire la disquette destination après chargement du fichier en 
mémoire, puis de remettre la disquette source dans le lecteur 
-après la copie. 

— Mettre la disquette n° 3 dans le lecteur A et réinitialiser le 
système pour repartir sous MS-DOS (ALT + CTRL + DEL celle 
du bas du pavé numérique sur PC 1512). 

Lancer DEBUG (le bistouri). Cet utilitaire va nous permettre d’ef- 
fectuer la transplantation des 16384 octets de l’image du fichier 
ESSAI.BIN vers le fichier ‘‘IMAGE1.BAS""' créé lors de la pré- 
paration de la disquette n° 3. 


Répéter les mêmes opérations pour les images suivantes avec 
les Noms correspondants. Le fichier IMAGE1.BAS contient 
maintenant l'image du fichier ESSAI.BIN, ce dernier n'étant plus 
utilité, vous pouvez l’effacer sur les disquettes n° 3 
et n° 1. 


| —N ESSAI.BIN 


Définit le nom du fi- 
chier à charger ou à 
sauver 


| —L 1000 : 5000 Charge le fichier à l'a- 
dresse absolue 


&H15000 


— N IMAGE 1.BAS 


| 


Charge le fichier IMA- 
GE 1.BAS à 
l'adresse &H10000 


—L1000:0 


| — M1000 : 5080 L 4000 1000 : 0007 Transfère 16384 oc- 
tets de l'adresse 
&H15080 vers 


&H10007 


| =W1000 :0 Réécrit sur le disque 
le fichier IMAGE 


1.BAS 


— 


Message de DEBUG 
après copie du conte- 
nu du fichier. 


400 F octets copied 


VISUALISATION DE L'IMAGE SUR LE PC 


— Lancer GWBASIC 

— Taper un programme de chargement : 
Exemple : 

10 SCREEN1,0:COLOR 0,0 

20 DEF SEG = &HB800 

30 BLOAD''IMAGE1',0 

40 GOTO 40 

— Taper RUN (ou F2) et voilà le travail ! 


La phase d'entraînement passée, il ne faut pas plus d’un quart 
d'heure pour effectuer un transfert complet. 

PS : une image initialement en MODE1 sur CPC peut être affi- 
chée en SCREEN2 sur PC 1512 ; en version mono- 
chrome, le résultat est même plus joli qu'en SCREENI. 


BIBLIOGRAPHIE : 
— PCompatibles Magazine : Editions SORACOM 
— AMSTRAD Ordinateur Personnel PC 1512 
GUIDE DE REFERENCE TECHNIQUE 
Edition Micro APPLICATION 
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debut: 
fin:.: 


debut: 
fin..: 


debut: 
fin: : 


debut: 
fin..: 


debut: 
fin..: 


debut: 
fin .: 


debut: 
fin..: 


debut: 
fan. .: 


debut: 


fin. 


debut: 
fin..: 


debut: 
tin. : 


debut: 
fin: 


debut: 


fin 


debut: 
fin:.: 


debut: 
fin... 


debut: 
fin .: 


debut: 
fin..: 
debut: 
tin: 


debut: 
fin..: 


debut: 
fin. :: 


debut: 
fin..: 


debut: 
fin. .: 


debut: 
fin..: 


debut: 
fin..: 


debut: 
fin, :: 


La8. 


ca8a 
C@4F 


C85a 
Ca9F 


Ceng 
CGEF 


C@Fa 
C13F 


C148 
C18F 


c198 
C10F 


C1E0 
C22F 


2308 
C27F 


c288 
C2CF 


c2D8 
C31F 


C328 
C36F 


C378 
C3BF 


c3ca 
C40F 


C418 
C45F 


c466 
C4RF 


C4B8 
C4FF 


C580 
C54F 


C558 
C59F 


C5A8 
CSEF 


CSF@ 
C63F 


C640 
C68F 


C698 
C6DF 


C6E8 
C?2F 


C730 
C77F 


c788 
C?CF 


+* ADRESSES 


131. 


ce8a 
C84F 


C850 
C&9F 


C8Aë 
C8EF 


ceFe 
C93F 


C348 
C38F 


C398 
C9DF 


C3E8 
CA2F 


CA38 
CA7F 


CA8g 
CACF 


CROQ 
CB1F 


CB26 
CB6F 


CB7@ 
CBBF 


CECA 
CCeF 


Cc18 
CCSF 


CCéa 
CCAF 


ccBe 
CCFF 


CDaa 
CD4F 


C058 
CD9F 


CDAë 
CDEF 


CDF@ 
CE3F 


CE48 
CE8F 


CE98 
CEDF 


CEEQ 
CF2F 


CF30 
CF7F 


cF80 
CFCF 


L92. 


D808 
D84F 


Da58 
D@9F 


Dené 
DOEF 


beFe 
D13F 


D148 
D18F 


D198 
D1DF 


D1E8 
D22F 


2238 
D27F 


D284 
D2CF 


D2D8 
D31F 


D32@ 
D36F 


D370 
03BF 


D3c@ 
D48F 


D418 
D45F 


D468 
D4RF 


D4B9 
D4FF 


D540 
D54F 


D558@ 


D59F. 


D5A@ 
DSEF 


D5F@ 
D63F 


D648 
D68F 


D698 
D6DF 


D6E8 
D72F 


D730 
D77F 


D788 
D7CF 


MEMOIRE ECRAN SUR CPC ** 


L93. 


D88g 
D84F 


D858@ 
D89F 


D8Rä 
D8EF 


D8F@ 
D93F 


D348 
D98F 


D938 
D9DF 


DJER 
DA2F 


DA38 
DA7F 


DA8@ 
DACF 


DADA 
DB1F 
DB20 
DB6F 


DB7@ 
DEBF 


DBCA 
DC@F 


pC18 
DCSF 


DC68 
DCAF 


DCB@ 
DCFF 


DDea 
0D4F 


Dn5@ 
DD9F 


DDAG 
DDEF 


DDF@ 
DE3F 


DE48 
DES8F 


DE98 
DEDF 


DEEQ 
DF2F 


DF30 
DF7F 


DF88 
DFCF 


La. 


E86@ 
E@4F 


E858 
E83F 


EGR6 
EGEF 


EGF@ 
E13F 


E148 
E18F 


E198 
E10F 


E1E8 
E22F 


E23@ 
E2?F 


E280 
E2CF 


E2D8 
E31F 


E328 
E26F 


E3/4 
E3BF 


E3C@ 
E48F 


E410 
E45F 


E468 
E4RF 


E4B8 
E4FF 


E500 
E54F 


E550 
E59F 


ESAÛ 
ESEF 


ESF 
E63F 


E640 
E68F 


E636 
E6DF 


E6E@ 
E72F 


E730@ 
E77F 


E78@ 
E7CF 


La5. 


E808 
E84F 


E856 
E83F 


E&h4 
ES8EF 


E8F@ 
E93F 


E348 
E98F 


E998 
ESDF 


ESE8 
EA2F 


EA36 
ER7F 


EA8@ 
EACF 


EACE 
EB1F 


EB24 
EB6F 


EB74 
EBBF 


EBC@ 
ECOF 


EC18 
ECSF 


EC68 
ECAF 


ECB@ 
ECFF 


ED88 
ED4F 


ED58 
ED9F 


EbAà 
EDEF 


EDFO 
EE3F 


EE44 
EESF 


EESG 
EEDF 


EEE@ 
EF2F 


EF38 
EF?7F 


EF80 
EFCF 


Ls6. 


Fee 
F4F 


Fesé 
FA9F 


FOR 
FOEF 


FàF@ 
F13F 


_F140 


F18F 


F13@ 
F1DF 


F1E@ 
F22F 


F238@ 
F27F 


F286 
F2ÛF 


F2D@ 
F31F 


F320 
F36F 


+370 
F2BF 


F3C@ 
F46F 


F418 
F45F 


F468 
F4RF 


F4B0 
F4FF 


F500 
F54F 


F558 
F59F 


F5A8 
FSEF 


FSFU 
F63F 


F648 
F68F 


F698 
F6DF 


F6E8@ 
F?72F 


F730 
F?7F 


F78ù 
F?7CF 


La?. 


Feb 
F84F 


F85e 
F89F 


F&eAë 
F8EF 


F8re 
F33F 


F948 
F98F 


F934 
F90F 


FSF@ 
FA2F 


FA30 
FA7F 


FA8G 
FACF 


FADO 
FB1F 


FB29 
FB6F 


FB70 
FBBF 


FBca 
FCF 


FC18 
FCSF 


FC68 
FCAF 


FCBG 
FCFF 


FD98 
FD4F 


FD58 
FDF 


FDA8 
FDEF 


FDFO 
FE3F 


FE40 
FE8F 


FE96 
FEDF 


FEEO 
FF2F 


FF38 
FF7F 


FF80 
FFCF 


Lt 


Lt 


Lt 


Lt 


Lt 


Lt 


Lt 


Lt 


Lt 


Lt 


Lt 


Lt 


Lt 


Lt 


Lt 


Lt 


Lt 


Lt 


Lt 


Lt 


Lt 


Lt 


Lt 


Lt 


Lt 


24 


25 


debut: 


fan. 


debut: 


fin 


debut: 
fin... 


debut: 
fin..: 


debut: 
fin..: 


debut: 
fan... 


debut: 
En. : 


debut: 
fin. .: 


debut: 
fin..: 


debut: 


fin 


debut: 


fin 


debut: 
LE LPS 


debut: 
fin..: 


debut: 
FAN, 3 


debut: 
fin: : 


debut: 


fan. 


debut: 
LE LORS 


debut: 
fin..: 


debut: 


fan. 


debut: 


fin. 


debut: 
fin. : 


debut: 
fin... : 


debut: 
fan..: 


debut: 
fin: 


debut: 
fin..: 


** ADRESSES MEMOIRE ECRAN SUR PC1512 


Ls6. 


B6068 
B884F 


B8148 
B818F 


B8288 
B82CF 


B83C8 
B846F 


B85@8 
B854F 


B8648 
B863F 


B8788 
B87CF 


B88C@ 
B890F 


B8AGG 
B8A4F 


B8B48 
B8B8F 


BèC88 
B8CCF 


B&DC@ 
B8EOF 


B8F6@ 
B8F4F 


B9848 
B388F 


B9188 
B91CF 


B92C8 
B930F 


B3488 
B944F 


B9540 
B958F 


B9680 
B96CF 


B97C8 
B980F 


B9588 
B9934F 


BSR4B 
BASF 


B9B88 
BSBCF 


B3CCe 
B9D@F 


B9E88 
B9E4F 


Lai 


BAG 
BAG4F 


BA140 
BA18F 


BA280 
BA2CF 


BA3C& 
BA4GF 


BA560 
BAS4F 


BA648 
BA68F 


BA786 
BA7CF 


BA8CE 
BASF 


BAR6G 
BRAA4F 


BAB48 
BABSF 


BAC 
BACCF 


BADC& 
BREOF 


BAF6@ 
BAF4F 


BB848 
BBG8F 


BB188 
BB1CF 


BB2C@ 
BB36F 


BB468 
BB44F 


BB548 
BB58F 


BB680@ 
BB6CF 


BB7C@ 
BB8@F 


BB988 
BB94F 


BBA48 
BBABF 


BBB88 
BBBCF 


BBCC@ 
BBDOF 


BBE8Q@ 
BBE4F 


La2 


B8858 
B8@9F 


88198 
B81DF 


B82D@ 
B831F 


B8418 
B845F 


B8558@ 
B859F 


B8698 
B86DF 


B87D8 
B881F 


B8918 
B895F 


B8A58 
B8A9F 


B8B98 
B8BDF 


B8CD@ 
B8D1F 


B8E18 
B8E5F 


B8F58 
B8F9F 


B93898 
B96DF 


B91D6 
8921F 


B9318 
B935F 


83458 
B349F 


B3598 
B95DF 


B36D8 
B371F 


89818 
B985F 


B9958 
B399F 


B9A98 
BSADF 


B9BD8 
B9C1F 


B9D18 
B9D5F 


B9E58 
B9E9F 


Ls3. 


BA858 
BAG9F 


‘ BA190 


BA1DF 


BA2D8 
BA31F 


BA418 
BA45SF 


BAS58 
BA59F 


BA638 
BA6DF 


BA7D@ 
BA81F 


BA318 
BA95F 


BAR5G 
BAR9F 


BAB9ù 
BABOF 


BACD& 
BAD1F 


BAE18 
BAESF 


BAF58 
BAF3F 


BB098 
BB@DF 


BB1D&@ 
B821F 


BB310 
BB35F 


BB456 
BB49F 


BB598 
BBSDF 


BB6D@ 
BB71F 


BB818 
BB85F 


BB958 
BB99F 


BBA98 
BBADF 


BBBD8@ 
BBC1F 


BBD18 
BBDSF 


BBE58 
BBE9F 


L94. 


B88A8 
B88EF 


B81E0 
B822F 


B8328 
B836F 


B8460 
B84AF 


B85A8 
B8SEF 


B86E8 
B872F 


B8820 
B886F 


B8968 
B89AF 


B8AR@ 
B8REF 


B8BEQ 
B8C2F 


B8D20 
B8D6F 


B8E66 
B8ERF 


B8FA8@ 
B&FEF 


B98E@ 
B912F 


B9228 
B926F 


B9368 
B93AF 


B94R@ 
B94EF 


B95E8 
B962F 


B9720 
B976F 


B9860 
B98AF 


B99R8 
B39EF 


B9SREG 
B982F 


B9C28 
B9C6F 


B9D68 
B9DAF 


BSEAO 
B9EEF 


La5. 


BAOAG 
BABEF 


BA1E8@ 
BA22F 


BA320 
BA36F 


BA468 
BA4RF 


BASA@ 
BASEF 


BA6EB 
BA72F 


BA828 
BA86F 


BA968 
BA9AF 


BAAA8 
BAREF 


BABE8 
BAC2F 


BAD28 
BAD6F 


BAE66 
BAERF 


BAFAB 
BAFEF 


BB@EG@ 
BB12F 


BB228 
BB26F 


BB368 
BB3AF 


BB4Aû 
BB4EF 


BBSEG 
BB62F 


BB?728 
BB76F 


BB868@ 
BB8AF 


BB9R@ 
BBSEF 


BBAEO 
B8B2F 


BBC28 
BBC6F 


BBD68 
BBDAF 


BBEA8 
BBEEF 


LE] 
L96. 


B8@F@ 
B813F 


B8238 
B827F 


B8378 
B83BF 


R84B8 
B84FF 


B85F@ 
B863F 


B8736 
B877F 


B8878 
B88BF 


B89B8@ 
B89FF 


B8AF8 
B8B3F 


B8C38 
B8C7F 


B8D78 
B8DBF 


B8EB&@ 
B8EFF 


B8FF@ 
B303F 


B9138 
B917F 


B9278 
B92BF 


B93B8@ 
B93FF 


B94F8 
B953F 


B93638 
B967F 


B9778 
B97BF 


B38B8@ 
B98FF 


B995F8 
B9A3F 


B9B38 
B9B7F 


B9C78 
B9CBF 


B3DB& 
B9DFF 


B9EF8 
B9F3F 


La7. 


BAëF@ 
BA13F 


BA238 
BA27F 


BA378 
BA3BF 


BA4B8 
BA4FF 


BASF@ 
BA63F 


BA738 
BA77F 


BA870 
BA8BF 


BASBG 
BASFF 


BARF@ 
BAB3F 


BAC38 
BAC?F 


BAD?6 
BADBF 


BAEB8 
BAEFF 


BAFF@ 
BB03F 


BB138 
B817F 


BB278 
BB2BF 


BB3B0 
BB3FF 


BB4Fû 


- BB53F 


BB630 
BB67F 


BB770 
BB?7BF 


BBeBa 
BBBFF 


BB9F8@ 
BBA3F 


BBB38 
BBB7F 


BBC78 
BBCBF 


BBDBG@ 
BBDFF 


BBEF@ 
BBF3F 


+ ca ti 


+444 Ê 


Chargeur BASIC 


TRANSIMEIN #44 


C.FAVEN & SORACOM 


14 CLS:RESTORE: FOR L=ë TO 14: SUM=û 


24 FOR v=6 TO i5 
36 PÜFE (H9GQ@+L #64, 


:GOSUE 74: SUM=SUM+DAT 
DATINERT 


dé GOSUE 74:IF DAT: :SuM THEN 86 ELSE FRINT'Ligne ‘ilueiasit 


DE": NEXT L 
D SAVE TRANSIM, IN", E, ES OO, ke 
ét END 
74 RÉAL V$:DAT=VAL CE 41: RETURN 
Bt CLS: PRINT CHRE 17,1" ERREUR En DAïh LIGNE ‘rlatæLleSs ee 
:STÛF 
LS] 
146 DATA 21,46, 08, 11,00, dû, de, 43,05,E5.06, 19,C5,E5.t Jeu, UE 
165 LCATA CS,ES. de, 56,05,06,.00,7E.CE,7F,26,60,CE, Fé CE, 77,0/E4 
li DATA 28,07, CE,E4, CE, 6F, 28.02. C5, D00,CE,.87,36,02,C8,Cû,97BE 
15 OJATA CE.S5F,28,02,CB.F8,CE.57.28,02,CF.E8. CE. 4F,28,0:,0754 
126 DATA CE. D8.CB.47,28.u2,CE,CE.76,12,17, 17,01. 10.05.01 ,.4745 
125 DATA DS5.11.06,10,19,D1,01.10.B7,.61.05,11.54.00,17,.01.0665 
134 DATA Ci,10,A9,E1, 11,00, 08,19, 11,00, 86, C1. 10,94,07,.21,9S257 
135 DATA 06,04, 11,00, 46, 0e, 07,CS,E5,06, 19.05.35. 06,04, C5,055E 
149 DATA ES,61,56.04,ED, GEL, DS, 11,0, 10,19, 01,01. 10,EF, 0754 
145 DATA Ei,05.11,56,.06,19,D1,01,10,E1,Ei.11,08,.68.19,11.#507 
190 DATA du,68, C1, 16, 02,05. 06, où, Go, Qi, 66, 04, Qu, 06, 60,00, GICC 
155 +4#444 FIN DES DATA ##444Q 


Transim.bas 


Î #ttt S'RANSIMAGE +++ :FA 
D :FÈ 
3 Transcogeur d'image ecran CPC -: PC ou Comratible :FC 
4 iC} 1987 C.PAVEN & Les Editions SÜRACOM #FD 
5 FE 
lé OPENOUT “d": MEMORY &3FFF: CLOSEOUT : LOAD'TRANGIM, IN". LE 
APS IST) 


24 GOSUE déé: GOSUE 1426 :RA 
26 GOSUB Z44:G0SUÛEB 514: GO0SUE &70:G0SÛUE S6G: GOSUE 856 WF 
46 #LE 
59 Inserer eventuellement 101 je pilote de votre rout :LE 


ine de communication 


ét 


“pour transterer le +ichier traite par liaison SERI :LF 


E R6232 


* SA 
50 


br 4 


CT 


Daour ge ticnier : éHdüdg : Lonaqueur : éndtus “L5 
LH 

3uvegarde 08 i image cocee FL :LJ 
us$=ues THEN GOSUE 956 #WE 
USE" THEN snomé="'"4nss ELSE snomézusét"s "ns IL 
AVE snomE. 0. éddûe, Hu A 
SUB dé: SÛTO 34 ‘PC 
FF 

m2353985 +tenetre 5 RG 
5$=" #44 INFORMATIONS #4 “IGOSUE ZZM: RETURN FE 
s$=" SELECTION ENTREE-SORTIE ‘:GOSUE Z26:RETURN ‘Dé 


1B6 mess=" ##4 METTRE EN FLACE LES SUFFORTS MAGNETIQUE ‘MW 
S ENTREE-SORTIE +++  :GOSUE 224: RETURN 

196 mes$="  MODE-COULEURS IMAGE “:GOSUE 2 
266 mes$=" NOMS ENTREE-SORTIE ‘“:6 :XW 
Lg MESS=" ##+ SAUVEGARDE #+4 “15 aUY 
22t CiStS:mes=LENimest!: 1oc=INT((78-mesi ; Zi *Uÿ 
ioc. Li FRINTRES. CHRE Sd '+mesg+CHRe (ds: PRINT EHFS ZI 2RET 

UEN 

a FF 
£4U 531518 QU CnOIK RG 
25% IF NOT INFET(é4: Oh NOT INFETiIZ: THEN rer=isREIURN AN 
Ze IF NOT INtErieSr DR NOT INtEruaig, THEN repzZi RETURN ‘AK 
27% IF NOT IntEr(57; Oh NÜT iNrEri5: THEN repz5StRETURN m4 
ELSE 250 

286 : Th 
294 barre 0 espace pour continuer :TE 
266 PRINT CHR#17) #Ln 
26 IF NOT INFEY147: THEN RETURN ELSE 316 “HH 
126 2RF 
31 vider bufter clavier :RG 
344 1KS$="X"sMHILE 14425 "%e1E8=INFEYS: NEND: RETURN aVI 


356 


30% 


376 FOR tt=6 TD 


286 


394 


464 INK 6.13: BORDER 13: INF 1.0: MODE 2 
4ié WINDOWR#E, 1.80.25.2S:CLS: WINDOW# 1.2, 


temporisation 
ZM: NEXT tte RETURN 


Trace du cadre 


NDDW#S, 2,35,2, 3: CLS#3:WINDOW#4. 42, 79,243 :ELSH: WINDOWR#S 
279,3, 9: CLS#S 


424 MOVE 2,24: DRAWR 4,376: DRAWR 634,60: DRAWR 6,-77ü: DRAW DD 
F -674,0:MOVER 674,288: DRANR -634,4:MOVER 6,32: DRAUR 83 
4,4: MOVER -Tié. 6: DRAWR 6,48 

24 MOVER -4,-4:DRAUWR -314,0:DRAUR ,-38:DRAUR 316,4:DR :CD 
AKR 6,38: DRAUR 5,2: DRAWR 716,4: DRAUR 0,-42:DRAUR 310,9 

gdé LOCATER#S. 14,1: PRINT#ZT KR A N S I M À G E" iGE 
45 LOCATE#Z,11,Z:PRINT#S. (C; 1987 C.FAVEN": 2PL 
à£é LOCATE#4.,86, 1: PRINT#4, "ENTREE, . ss ?6À 
47ÿ LOCATE#4, 6, L:FRINT#à, "SORTIE, si": #6* 
486 RETURN :1H 
496 :TD 
59% Selection Entree-Sortie 2RF 


519 CLS#1:G0SUE 174:LOCATE #1.28, 4: PRINT#1. "UNITE D ENT :# 


FEE (Source; ":GOSUE 4464 
524 GOSUE 256:G0SUB 376:GOSÛUB 346 


52 IF rep=i THEN ue$="a" ELSE IF rep=2 THEN ue$='E" EL : 


SE ueg="E" 


546 LOCATE #4,18,1:1F ue$="4" OR ue$="e" THEN FRINT#4," 


Disquette “iue$: ELSE FRINT#4, "Cassette 


59% LOCATE #1,25,4:PRINT#1, “UNITE DE SORTIE (Destinatio ; 


ni"+CHR$(7} 
568 GOSUB 254:G0SUB 376:GO0SUE 349 


979 IF rep=i THEN us$="4" ELSE IF rep=2 THEN us$="B" EL “HA 


SE us$="E" 


Je4 LOCATE #4,18,2:1F us#$="4" OR usg= "8" THEN FRINT#4." :UP 


Disquette “:us$: ELGE FRINT#4, ‘Cassette “ 


599 IF (ue$="a" AND us$="E") OR (ue$="B" AND us$="K") T à 


HEN :TAPE, OUT: DISC. IN 
66 IF (ue$="E" AND us$="A") OR (ue+=" 
HEN iTAPE, IN: DISC. OUT 


big IF (ue$="A" AND us$="A"} OR (ue$="#" AND us$="E") À ; 


R (uet="E" AND us$="A"} OR (ue$="4" AND us$="B") THEN : 
DISC 


626 CLS#I:GOSUB 189:LOCATE#1.19,8:PRINT#1, "Presser 4 ES ?X 


PACE : lorsque vous etes pret':60SÙE 360 

634 GOSUR 344:RETURN 

644 LOCATE#1,14,6:PRINT#I,"< 1 : Disquette A‘:LOCATE#I, 
16,8: PRINT#1,"< 2 >; Disquette B':LOCATE#1, 50,16: PRINT#I 
"5 3 : Cassette":RETURN 

858 

64 ‘ Mode couleurs de l'image 


674 CLS#1:GOSUB 196:LOCATE #1,29,3:FRINT#1, "MODE ( 1 ou : 


2)" 


684 GOSUE 256:GO0SUB 376:G0SUB 349: IF rep:2 THEN 685 


694 PRINT#1, rep; :m=rep: LOCATE #1,36,5:PRINT#1. COULEURS : 


T6ÿ LOCATE#1,29, 7: INPUT#I,; "Encre w | 4 a 
eb:GOSUB 7éÿ:IF tf=1 THEN 766 


714 LOCATE#1,29,9:INPUT#I,: "Encre 1 1 4 à 26 à "elivt= > 


el:GOSUE 76:1F tf=1 THEN 719 

7230 IF m=2 THEN 756 

34 LOCATE#1,29,11:INPUT#I,: "Encre 2 
=e2:GOSUR 76ÿ:IF tf=1 THEN 730 

74ë LOCATE#1,29,13: INPUT#i,: "Encre 3 
=e3:GOSUB 766:1F tf=1 THEN 74% 

75% RETURN 

768 IF vt<o OR vt:26 THEN tf=i ELSE t+=û 

77% RETURN 

788 : 

79% ‘ Noms en entree et sortie 

86ÿ CLS#i:GOSUR 269 

Bié LOCATE#1,16,5:PRINT#1, SPC (50) :LOCATE#1, 16,5: INPUT#1 
,:"Nom en entree (avec extension) :",ne$:IF ne$="" THEN 
819 


{ 4 a 26 } “eivt 


829 IF ue$="£" AND LEN(ne$i>i6 THEN 819 ELSE IF (ue$="A : 


“OR ue$="E"} AND LEN(ne$}12 THEN 818 

824 LOCATE#1, 16,8: PRINT#1, SPC (56) : LOCATE#1, 16,8: INPUT#1 
,3 "Nom en sortie lavec extension} :",ns$:IF ns$="" THEN 
ns$=ne$ 

844 IF us$="E" AND LEN(ns$}>i6 THEN 839 ELGE IF (us$="A 


46 


E" AND us$="B") T : 


éb } “,ewivt= ; 


(4 a 26 ) "ezivt : 


— 
De 


3UE 


>HE 


?TY 


Da 


“DR us$="E"i AND LEMins$i:12 THEN 26 
854 RETURN 


56t 

876 ‘ Chargement et Traitement de 1 1mage 

884 MODE m:iNE 6e: if Lel:INE ZeiiINE Jeï 

868 IF ue$="E" THEN enom$="!"4nef$ ELSE enom$=ue$+": "ne 
$ 

998 LOAD enom$, 40406 

914 IF m=i THEN CALL &9006 ELSE CALL £9G6F 

926 RETURN 

938 

946 ‘ Confirmation changement de support magnetique 


956 GOSUE 44 

960 LOCATE #4,18,1:IF ue$="A" DR ueg="E" THEN FRINTHA, 
Disquette “sueg; ELSE FRINT#4. "Cassette ‘4 

974 LOCATE #4,18,2:1IF us$="A" OR us$="E" THEN FRINTHA, 
Disquette “ius$: ELSE FRINT#4, “Cassette sa 


SB4 GOSUE Z1G:LOCATE H1.22,8:FRINT#I. "METTRE EN FLACE L ; 


E SUFFORT DE SORTIE" 
996 GOSUE 1124:G0SUB T4: RETURN 
1809 


1818 Informations ... 


1926 GOSUE 169:LOCATE#1,5.2:FPRINT#1."- Le jogiciel va v : 


ous permettre de transferer vos meilleures creations :: 

LOCATE#1, 1,3: PRINT#1, "oraphiques sur CPC vers un FC 151 
2 ou autre compatible FC, et ce pour les": 

1436 LOCATE#1,1,4:FPRINT#i. "modes 1 et 2 du CFC. (Screen 
1 et 2 sur FC equipe d'une carte CGA) “:LOCATE#1,5,6:PRI 

NT#1,"- Deux modes de transfert sont possibles, le plus 
simple est d'utiliser": 

1446 LOCATE#1,1,7:PRINT#i, "une interface serie RAS232, L 
a place est reservee dans ce programme pour y"::LOCATE# 
1,1,8:PRINT#I, “introduire les commandes necessaires," 


1959 LOCATE#1.1,9:PRINT#1."Le second utilise le support : 


disquette 5'‘1/4 , mais demande plusieurs manip 
ulations pour obtenir un fichier utilisable sous GWBASI 
C." 
1969 LOCATE#1,5,12:PRINT#1,"- Cette disquette devra pre 
alablement etre formatee au format IEM-CFM"::LOCATE#I. 1 
.13:PRINT#1," (commande: :format 1 sous CPMZ,2) seul ce 
format peut etre relu, et uniquementsous DO6+, par un P 
Ga” 
1976 GOSUE 1126:60SUB 344: CLS#1:LOCATE#I,3,Z:PRINT#I,"- 
Il est necessaire de faire concorder l'ordre des PEN 5 
ur CPC avec les": 
1966 LOCATE#1.1,3:PRINT#I, "couleurs de palette du PC, L 
e programme TRANSFEN (du meme auteur} fait ce trava 
il en quelques secondes." 
1994 LOCATE#1,5,6:FRINT#1,"- Les images originalement e 
n mode i sur CPC peuvent, apres traitement, "; 


1196 LOCATE#I,1,7:FRINT#1."etre affichees aussi bien en : 


SCREEN 1 (3264266 en 4 couleurs) qu'en SCREEN2 (646% 
266 en 16 couleurs) sur un PCI512," 


1119 GOSUB 1126:G0SUB 349: RETURN 


1126 LOCATE#1,25, 16: PRINT#1,"Fresser < ESPACE + pour su à 


ite";:G60SUB Z96:RETURN 
1136 EN@ 


>FP 


QC 


#TF 


+0] 


UR 


ed 


TP 
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# 1 
LL ui sh l LL k fi LE lu 4. OUVERT DU MARDI AU VENDREDI de 10 h 30 à 13h et de 15 h à 19 h, LE SAMEDI de 10h 30 à 19h 


REVENDEUR OFFICIEL AMSTRAD FRANCE 


produits DART 
STYLO OPTIQUE : De loin le meilleur de tous, 
le stylo optique DART à fibre optique vous 
permettra de réaliser de véritables chef d'œu- 


Rallonge alimentation + vidéo 
[ne soyez plus collé à l'écran, rallonge 464. 130 F 
[1 ne soyez plus collé à l'écran, rallonge 6128 180 F 


DIGITALISEUR ARA 
Ce digitaliseur vous permettra non seulement de 
digitaliser des images vidéo provenant d'une ca- 


[1 housse pour moniteur + clavier ...... 175F méra mais aussi des images provenant direc- E le € .che { 
R {préciser couleur ou monoc.) tement de votre T.V. Un Lueul tte cousiet AL Fourni avec logiciel d'exploitation très 

2 ruban imprimante DMPI (par 2)... ... 198 F vous permettra d'embellir, retoucher, stocker... EN data liisquétil 

2 ruban imprimante DMP 2000 ....... 39 F CRC 6128 = les images digitalisées. Entièrement français. stylo optique (cassette) 


2 adaptateur peritel tous CPC . . ....... 490F 


Câble imprimante AMSTRAD 

Vous permet de connecter votre AMSTRAD à n'im- 
porte quelle imprimante au standard “centronic”. 
câble imprimante .............. 


digitaliseur ARA SCANNER GRAPHIQUE : Ce scanner, très sim- 


ple d'utilisation, vous permettra de digitaliser 
toute image sur support papier, à partir de la 
DMP 2000. Fourni avec un logiciel d'exploita- 
tion très puissant. 

[1 scanner graphique “DART" 


(clavier AZERTY) 


#4 SUPER-PROMOTION 


D CPC 6128 coul + impr. — 
DMP 2000 VS 


CPC 6128 monochrome D) PCW 8256 

CICPC 6128 couleur PCW 8512 

CPC 464 monochrome... 2® ect PCW 8256. 
tFC 484 coeur Jintert. RS 232/centronic 
imprimante DMP 2000 
interface RS 232 (Amstrad) 
sours ; Disquettes vierges 
ler lecteur de disquettes à l'unité 

2ème lecteur de disquettes 
mangétophone (avec câble) 
câble magnéto 


[] joystick compétition 
PRO5000 .... 170F 


@ Tête d'impression 9 aiguilles 

@ Vitesse d'impression de 100 cps en mode listing 
et 16 cps en NLQ 

© Niveau de bruit inférieur à 52 dB 

© Entraînement du papier par friction ou traction 


O imprimante SEIKOSHA SP 180. … 2190F 


A, 
à DD |_ 5e 


TNTHÉVOS 1 
DD 


TrGyni MyS Out 


ne lui manque que la parole”, synthé. VOC1 la lui donne ! switch-joy 

ès performant ce synthétiseur vocal va vous permettre 

rendre votre ordinateur plus bavard qu'un politicien en 

mpagne ! O interface TV (avec câble). ................................ 1.490 F 

synthétiseur Vocal +... 543F  [] interface TV avec télécommande (avec câble). ................... 1.690 F joystick switch-ioy 

7 logiciels vocaux sur disquette sa ee DO E 

LOGICIELS PCW à bob winner ses phalsberg 
Dalienor force 4 + miss. detector. 190F COpolyprint + polyword .…. 490F échecs 3 D Re les passagers du vent. 325 F prohibition. 
[Jguardian 5 frank bruno'sboxing .….. 185F polyprogram 1185F grand prix 500 macadam bumper silent service . 
azerty .. 245F genecar ........…. quick mailing - 190F HMS. cobra . © marche à l'ombre 
batman. …. 185F GPII+ mailings . SAS.raid . -160F histoire d'or C meurtres en série 
blocus .. 185F graphologie + biory Csam...… .290F 
bob winner. .. 240F heathrow air control 180F  Ciseatalker…. LIVRES 
bounder … .. 205F histoire d'or … : sorcerer … | | " 
bridge player …. 195F infidel Cspellbreaker amstrad PCW guide basic 145F clefs pour amstrad PCW..215F livre CP/M amstrad 2 
cobol (not. angl.) la paie cresus D Cspool .… amstrad à l'école Ccommu. mod. minit. CPC 149F  Ulivre lect. disq. CPC 8 
campagnon langage “C” (not. angl) .. 550F Ostarglider OCP/M + amstr. CPC PCW 100 F tour de l'amstrad CPC... E 
compta. gene. (alphasoft)1175 F Cmultiplan .498F steve davis snooker . amstradetimprimantes.. 95F  Clgest.suramstradPCW...175F Uroutines de l'amstrad CPC 149F = 
damoclès 155 F0 mynea .… .830F  Clstrike force harrier 185F Damstrad guide bas./ams. 128F  Dgraphis.sons CPC 129F  Dlogosur CPC 8 
datamat PCW .… 590F orphée … 275F  DÜtassword 8000. amstrad locoscript Oje débute basicamstrad . 91F  Cmultiplan sur amstrad ...195F x 
dbasell … .… 190F OPCW graph Ctomahawxk . UÜbiendétr.CPC6128 .... Ol'assembl. de l'amstrad...105F CJmusique sur l'amstrad ...148F s 
enchanter . …. 265F OPCW paint ; Utop secret Obien détr. PCW Dl'univers du PCW 119F  Oprogr.éduc. sur CPC 179F 8 
exbasic… polymail + polyword 460F  Citrivial pursuit Obien détr. PC 1512 la bible du graph. .......199F  Ctrucs astuces pour CPC...149F mn 
fairlight … polyplot + polices n° 1. 460F  Ljrotate Oclefs pour mastrad T1 ...140F la bible du progr 249F  Oturbo pascal sur amstrad .150 F o 
Oclefs pour amstrad T2 ...155F langage machine CPC....129F 
C D 

acro jet sise O110F0150F C D LOGICIELS CPC D C D 
algèbre 4°-3° ....... 0175F0245F compac move ........ 210F0260F C D massacre à latomate .. [1125F01199F space harrier ......... 105F0145F 
amstrad gold hitsil ... C115f01160F contamination ........ [1140F01199F foot + tennis + 5° axe. CJ160FC1199F mastertronic disq. n° 1 . O 99F starglider ... . D150F0180F 
analsofrome ........ 0125F0175F convoyrider .. 115F0160F hitpackn" 1 5e 100F0140F mastertronic disq. n° 2 . DO 99F street hawk .. . 0110F0145F 
apprends moi à lire ..…. 285F cosanostra ... .… D140F0195F hitpackn°2 ... . D105F0145F mastertronic disq. n°3 . O 99F taipan .…. 0110F0160F 
apprends moi à écrire .…. 225F da.m.s. ...... . 0295F0395F hits ère vol. 1... .. D160F0240F mercenary ........... O105F0230F tasword-mailmerge ..…. O360F 
arkanoïd .... 100F0155F dame scanner ..… . 0140F0175F indoor sport . D115F0155F meurtres en série ..... C1265F01299F tennis 3d ............ 120F0160F 
army moves . 0100F0150F dangerstreet .. 135F0165F ky.a. À 140F01199F miami vice ........... O100F0150F tensions ... … D125F0199F 
asphalt ......... 135F01175F datamat ...... Sea 450F kidkit 0285F0285F micro scrabble ....... CJ210F0255F textomat ............ CO450F 
astérix potion mag. .... [1165F0199F dbase lisser 0790F konami's coinophits .. [J110F0140F monopoly ....... . D190F0245F sold à millionn°1 .... C105F0150F 
athlètes ............. 180F0195F démons. géom.4°/3°.. C1175F0245F laformule ........... O125F0199F multiplan ..… st O449F sold à millionn°2 .... O105F0145F 
autoform.assembl. .... (C1195f01295F chiffresetlettres ..... 210F0295F la geste d'artillac ..... [1199F0265F MÉMOSIS Le riens 95F0145F sold à million n°3 ..... O100F0145F 
ballbreaker ...... .… 0115F0160F dessin 3d ........... O255F lenecromancien ...... O170F nitrogl. lucky luke . 220F thing bouncesback .... (1105F01155F 
barbarians .. ss 105F01145F enduro racer .. … 0105F0155F le passager dutemps .. 0199F pacman superpac .... 150F TOP QU sr O100F0140F 
basketball .. . 0115F0160F équation inéqua.4*/2° [1175F0245F leaderboard ......... 0115F0160F paperboy ........... O110F0155F trio hit pack … D0115F0155F 
bob winner 185FC240F passagers du vent Il 290F les classiques vol. 1 ... [1160F[210F prohibition . … 0125F0199F trivial pursuit O180F0215F 
bridge ...... 270F0305F express rider ......... 100F0145F les lauréats .......... 165F rally2 ..... . 0160F0190F tuer n'est pas jouer .... 120F0170F 
budget familial . 140F0215F F15 strike eagle . . _115F0160F les maîtres dutemps .. [J160F0210F relief action .......... 160F0199F valeur plus 1.2 ....... 0365F 
calcumat .... £ 450F flashs. 140F0180F lestempliers d'orven .. [1180FC)220F rev./gre./cauld/sorc. .. [160F0210F volley ball ..... … 0140F0175F 
canadair .... . D110F0160F gauntlet ........ 100F0145F livingstone .......... O140F0195F road runner ..... … 0105F0155F winchester .. . D150F0180F 
carte de France . . D150F0190F grand prix 500 . D150F0180F (CRETE .. 0130F0190F samouraï trilogy 0110F0160F world games ... .. D100F0165F 
cessna over Moscou ... 155F0215F graphic city ..… . D150F0195F m'enfin 22:30 és 140F0175F sapiens ...... a 140F0180F vie arkungfull ....... 100F0155F 
cobol (notice angl) ...… 550F h.m.cobra ... Ü299FC01299F macadam bumper .. 145F0245F shogun ...... .… D120F0165F zarkasatomicfiction .. [1140F0175F 
colossus chess 4... O110F0140F histoire d'or ..... 199F marche à l'ombre ..... 145F0199F silent service ........ 110F0160F 20MDE. sa ice D145F0175F 

COMMENT COMMANDER :Cocher le(s) article(s) désiré(s) ou faites une liste sur feuille à part - Faites le total + frais de port (20 F pour achats inférieurs à 500 F, 40 F de 500 à 1000 F. 60 F de 1000 F à 2000 F. 80 F pour achat supérieur à 2000 F) 
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VENTE AUX COLLECTIVITES : numéro réservé : 48.86.92.84 


INITIATION A CP/M 


Francis VERSCHEURE 


Nous voici donc arrivés à 
l'étude de la fonction 50, 
présente, rappelons-le, 
uniquement en CP/M Plus et 
destinée à un interfacage 
‘’propre’’ avec le BIOS. Le 
mécanisme d'appel est très 
simple et utilise une zone 
de travail qui contient les 
différents paramètres dont 
voici la description : 

— 1 octet : numéro de la 
fonction BIOS à rappeler 
— 1 octet : contenu du 
registre À à passer au BIOS 
— 2 octets : contenu du 
registre BC 

— 2 octets : contenu du 
registre DE 

— 2 octets : contenu du 
registre HL 


En entrée : C=50 DE = adresse de la 
zone de travail contenant les paramè- 
tres. 

En sortie : À contient le code retour 
éventuel de la fonction BIOS. 

Mais quelles sont les fonctions BIOS ? La 
figure 1 vous donne la liste utilisant les 
abréviations standard des noms de ces 
fonctions. Notre propos n'est pas de 
vous les décrire toutes, car d'ailleurs la 
plupart ne sont que des appels aux péri- 
phériques permettant d'effectuer physi- 
quement les fonctions du BDOS de 
CP/M. 


Nous allons voir dans le détail les fonc- 
tions du BIOS se rapportant aux opéra- 
tions sur disquettes; car celles-ci sont 
parfois utiles et ne font pas double 
emploi avec les fonctions du BDOS qui 
opèrent sur des fichiers. 


Les fonctions ‘disquettes’ 
du BIOS 


HOME : positionne la tête de lecture du 
lecteur courant sur la piste O 

SELDSK : sélectionne pour toutes les 
fonctions ‘‘disque'’ suivantes le lecteur 
qui sera concerné. Le numéro du lecteur 
est passé dans le registre C avec O pour 
A:, 1 pour B: etc. 

Par précaution mettre B à zéro. 
Registre E à O force la sélection, c'est- 
à-dire la relecture de la disquette. Indis- 
pensable pour ne pas avoir de problème 
lors d’un changement de support. 
Renvoie dans HL adresse table DPH du 
lecteur ou O si erreur. 

SETTRK : sélectionne le numéro de piste 
passé dans le registre C 

SETSEC : sélectionne le numéro du sec- 
teur passé dans le registre C 
SETDMA : sélectionne l'adresse du 
transfert disque passée dans registre BC 
READ : lecture du secteur physique 
déterminé par numéro piste/numéro sec- 
teur à l'adresse passée par SETDMA. 
Code retour dans A. 

WRITE : écriture d’un secteur physique. 
Code retour dans A. 


Utilitaire simple 
de lecturelécriture physique 
d’une disquette 


La fonction 50 va nous permettre 
d'écrire simplement et proprement un 
petit programme qui, en liaison avec DDT 
ou SID nous permettra d'examiner une 
disquette en y accédant au niveau physi- 
que, c'est-à-dire piste/secteur. 


Rappelons le détail de cette organisa- 
tion : 

— une disquette comporte 40 pistes, 
numérotées de O à 39 

— chaque piste est décomposée en 9 
secteurs de 512 octets. Quel que soit le 
formatage de la disquette, système 
CP/M ou données seules, pour le BIOS 
les secteurs sont toujours numérotés de 
0 à 8. 

Donc, chaque lecture vous permettra de 
visualiser 4 ‘’secteurs CP/M'' de 128 
octets. 


La figure 2 vous donne la liste du 
programme. 
Après avoir saisi le texte source, vous 
devez en effectuer l'assemblage par 
RMAC ou ASM, suivi du LINK ou du 
LOAD. Si vous n'avez pas fait d'erreur, 
les zones suivantes se trouveront aux 
adresses ci-dessous : 

DISQUE 226H 

PISTE 227H 

SECTEUR 228H 

BUFDSK 240H 

LECTURE 100H 

ECRITURE 109H 

FIN 10FH 


Comment maintenant utiliser cet utilitaire 
appelé, par exemple, DUMPDSK ? 
Il faut utiliser DDT ou SID. 
Voici la marche à suivre, l'exemple étant 
donné sous SID. 

SID DUMPDSK.COM chargement 
du programme en 100H 

S226 pour visualiser et modifier les 
valeurs des paramètres DISQUE, PISTE 
et SECTEUR. 

Puis G100,10 F pour effectuer une 
lecture ou 

G109,10 F pour une écriture. 
D230 vous visualisera le buffer conte- 
nant le secteur physique qui débute en 
240H et finit en 43FH. 


Précautions d'emploi : il est impératif, 
pour ne pas avoir de problèmes, de ter- 
miner l'utilitaire par un CTRL+ SHIFT 
+ ESC pour effectuer un redémarrage 
à froid. 


Voilà, vous avez maintenant ce qu'il 
vous faut pour percer à jour les mys- 
tères du catalogue ou plus intéressant 
pour récupérer un fichier perdu. Bien 
sûr, rien ne vous empêche d'améliorer 
l'utilitaire pour le rendre indépendant. 


Bonnes découvertes, mais attention aux 
fausses manœuvres ! 


Les fonctions du Bios de CP/M Plus. 


Numero Nom Utilisation 

i BOOT Initialisation totale du systeme, c'est à dire demarrase 3 
froid. 

F4 WBOOT “Warm Bout", c'est à dire demarr 3 


réinitialisation partielle du sys 


5 CONST Etat de la console renvoye dans reg,s . 
4 CONIN Lecture d'un caractere au c'avier et Stockhas32z cans 1. 
5 CONOUT Ecriture du caractere contenu dans À à l'ecran, 
6 LIST Ecriture Sur imprimante du caractere contenu dans ©, 
7 AUXOUT Ecriture À vers peripherique auxiliaire. 

ee) AUXIN Lecture dans À du peripherique auxiliaire, 

9 HOME Retour tete lecteur courant sur piste @. 

19 SELDSK Selection lecteur courant. 

1i SETTRK Selection numero de piste. 

17 SETSEC Selection numero de secteur. 

13 SETDMA Fixe l'adresse des transferts disque, 

14 READ Lecture d'un secteur, 

15 WRITE Ecriture d'un secteur. 

16 LISTST Etat de l'imprimante dans À. 

17 SECTRN Conversion numero secteur logique en physique, 
1e CONOST Etat console en sortie. 

19 AUXIST Etat port auxiliaire en entree, 

z@ AUXOST Etat port auxiliaire en sortie. 

Z1 DEVTEL Adresse table des peripheriques. 

22 DEVINI. Initialisation d’un peripherique, 

23 DRVTEL Adresse table des disques. 

Z4 MULTIO Positionne compteur multi-secteur. 

23 FLUSH Force ecriture des tampons. 

26 MOVE Recopie d'un bloc memoire. 

27 TIME Gestion heure/date. 

28 SELMEM Selectionne banc de memoire contenu dans À. 

z9 SETENK Fixe banc de memoire pour transferts disque. 

T0 XMOVE Mouvement d'un banz vers un autre, 


T1, 22, 15 Reserves@ 


Utilitaire disque pour CP/M Plus. 


BDOS eau 5 
PRINTS #qu 9 3 Affichage d'une Chaine 
BIOSCALL eau 50 3 Fonction BDOS Appel BIOS 
SELDSK eau 9 { selection de disque 
SELTRK eau 10 1 selection de piste 
SELSEC eau 11 i selection secteur 
SELDMA eau 12 ; selection adresse buffer 
RDSECT #au 15 i lecture secteur 
WRSECT eau 14 ecriture secteur 
Lecture: 
call InitParms 3 Initialise les parametres 
cz ReadSector i et lecture d'un secteur 
imp Fin 3 si OK : 
Ecriture: 
cali InitParms 
CZ WriteSector 
Fin: rst Z 3 Retour a DDT ou SID 
InitParnms: 5 Init Disaue, Piste et Secteur 
mvi Cr BIOSCALL 
mv i ar SELDSK 
sta EIOSF 3 selection disque 
lda DISQUE 
sta BIOSBC 5 disque ds C 
xra a 
sta BIOSBC+1 5 © ds K 
sta BIOSDE 3 Q ds E selection forcee 
Uxi d' BIOSF 3 adresse des parametres 
call BDOS 
mov ah 1 teste si Pas d'erreur 
ora [l 
jnz DisaqueDk 
1xi dr MSGERRI1 ÿ unite non disponible 
Error: 
mvi Cr PRINTS 3 affiche message d'erreur 


call BDOS $ et termine 


mvi 
ora 
ret 
DisaueOk: 
mvi 
sta 
Xi 


shid 


mv i 
lxi 


Call 


mv i 
sta 
lda 
sta 
xra 
sta 
mvi 
Xi 


call 


lda 
sta 
xra 
sta 
mv i 
sta 
mvi 
lxi 


call 


xra 
ret 


ReadSector: 
mv i 
sta 
mvi 
1xi 


call 


ora 
ÿz 
lxi 
imp 

ReadlsOKk: 
ret 


WriteSector: 


mvi 
sta 
Xi 


Shid 


mv i 
lxi 


call 


ora 
JZ 
lxi 
ÿmP 

WritelsDk: 
ret 


3; Zones de donnees declarees explicitement 


MSGERRI: db 
MSGERR2: db 
MSGERRI: db 


DISQUE: db 
PISTE: db 
SECTEUR: db 


BIOSF: db 
BIOSA: db 
BIOSBC: dw 
BIOSDE: daw 
BIOSHL: dw 


db 
BUFDSK: db 


END 


a SELDMA 
BIOSF 

h; BUFDSK 
BIOSBC 
cr BIOSCALL 
d: BIOSF 
BDOS 

a» SELTRK 
BIOSF 
PISTE 
BI0SBC 


a 

BIOSBC+1 
cr BIOSCALL 
d, BIOSF 
BDOS 
SECTEUR 
BIOSBC 

a 

BIOSEC+1 
ar SELSEC 
BIOSF 

£1 BIOSCALL 
d’ BIOSF 
EDOS 

a 


a? RDSECT 
BIOSF 

£r BIOSCALL 
d, BIOSF 
BDOS 

a 

ReadIlsOk 
dr MSGERRZ 
Error 


ar WRSECT 
BIOSF 

hs i 
BIOSERC 

£r BIOSCALL 
d, BIOSF 
BDOS 

a 
WritelsOk 
d; MSGERRI 
Evror 


Cette unité de Disque n''est pas en 
Lecture de ce secteur 
Ecriture de ce secteur 


ses SSS 


*Disk Euffer 
a 


.. 


.. 


. 


.…. 


. 


… 


positionne Code erreur 


Positionne adresse 
transfert disque 


Sslectionne la piste 


piste ds BC 


Selectionne le secteur 


Lecture d'un secteur 


teste le Code retour 


Esriture d'un secteur 


ecriture immediate 


teste le Code retour 


impossible’, DAH, QDH,’ $° 


ligne’; DAH, ODH, ? $ 
impossible, DAH, QDH,' €" 


CONFIANCE 


QUALITÉ 


SERVICE 


Le développement de la vente par 
correspondance est un fait que nul ne 
conteste désormais. Il repose sur 2 points 
essentiels : la conflance client- 
fournisseur et la qualité des produits 
proposés. 

L'explosion de ce type de commerce est 
souvent dû aux difficultés de 
déplacement des clients. De son côté, le 
fournisseur peut réduire ses marges, donc 
ses prix. 

Pour réussir, il faut l'appui d'un groupe 
servant de support et de garantie. C'est 
ce que nous avons fait. 


© 


S'évader dans un fauteuil 


(se) 
(a) 
O 
(=) 
(e) 
= 
(=) 
(ss) 
[re 


Le clan de la caverne des ours 
(Archer) 

La Virginienne 
(Chase-Riboud) 

L'or de la terre 

(Clavel B.).............. 
La lettre à Alexandrine 
(Decours D.) ............ 
La bicyclette bleue 

(Deforge R.) ............ 
101 avenue Henri Martin 
(Deforge R.) ............ 
Le Diable en rit encore : 
(Deforge R.) ............ 
La Bougainvillée - Le jardin 
du Roi (T1) (Deschamps F.) 
La Bougainvillée - 4 épices (T2) 
(Deschamps F.).......... 
La marquise des ombres 
(Hermany-Veille) 

Fontbrune (Le Varlet B.) ... 
La splendeur des orages 
(Plain B) 

Tous les fleuves vont à la mer 
Tendre et violente Elisabeth 
(Troyat H.)............. 
Les mangeurs d'âmes 
(Wouk H.).............. 
La télé rend fou... 

mais je me soigne (Masure B.) 
Elle qui ne sait pas dire je 
{Pelot P.) .............. 
Gauguin, le bon Dieu 

n'a pas d'oreilles (Berrier P.) 
Pour une parcelle de gloire 
(Bigeard M.) ............ 
Nous avons rencontré 

les prophètes d'aujourd'hui 
(Cartier J.P.)............ 
Le banquier du Vatican 
(Corwell R.) 

Joseph Kessel ou Sur la piste 
du lion (Courrière Y.)...... 
Des Toques et des Etoiles 
(Courrière Y.) 

La vérité blessée 

(Couturier Y.) ........... 


105,00 
90,00 
105,00 
90,00 
95,00 
115,00 
115,00 
120,00 


98,00 
115,00 


118,00 
105,00 


80,00 
98,00 
65,00 
90,00 
100,00 
110,00 


100,00 

75,00 
160,00 
140,00 
100,00 


Des pierres précieuses 

aux pierres fines (album) 
(Dacunna) 

Les Rois Maudits (T 1) 
(Druon M.) Reliure Skivertex 
Les Rois Maudits (T 2) 
(Druon M.) Reliure Skivertex 
Les Rois Maudits (T 3) 
(Druon M.) Reliure Skivertex 
Les Rois Maudits (T 4) 
(Druon M.) Reliure Skivertex 
Les Rois Maudits (T 5) 
(Druon M.) Reliure Skivertex 
Les Rois Maudits (T 6) 
(Druon M.) Reliure Skivertex 
Si j'étais Dieu (Guth P.) ... 
Mœurs et sexualité en Océanie 
(Mead M.) 

Tapie, les secrets 

de sa réussite (Musnik).... 
Terre vivante : voyage 

d'un agronome autour 

du monde (Dumont R.) .... 
Le cheval d'orgueil Mémoires: 
d'un breton du Pays Bigouden 
(Hélias PJ.) ............ 
Le quartier de la mort 
(Jackson B. Christian D)... 
La merveilleuse histoire 

du cirque (Thétard H.)..... 
La difficulté de vivre 
(Françoise Dolto) 

La solitude 

(Françoise Dolto) 

Mes animaux vedettes 
(Marlyse de la Grange) 
Les salons de Marie 

(Marie Jaoul de Porcheville) 


135,00 
95,00 
95,00 
95,00 
95,00 
95,00 


95,00 
75,00 


100,00 
130,00 
150,00 

95,00 
110,00 
130,00 


CE 


Ê 


Portrait total de Mitterrand 
(P. Jouve A. Magoudi) .... 
L'immortelle 

(Amanda Lear) 

Argotez, Argotez 

(Auguste Lebreton) 
Confidence de Femme 
(Sophia Loren) 


Maintenant !… 


125,00 


Je peux les recevoir 


La cuisine est un jeu 
d'enfant (Oliver M.)....... 
La pâtisserie est un jeu 
d'enfant (Oliver M.)....... 
Les hors d'œuvre sont 

un jeu d'enfant (Olivier M.). 
Mes nouvelles recettes 


Mes dernières recettes 

à la télé 

Les grands vins de France 
(Dovaz M.) ............. 
La cuisine au naturel 

(Dard P)............... 


180,00 
100,00 


La cuisine traditionnelle 
(Duclous J) ............ 
Tous les vins de Bordeaux 
(Duiker) 

Le grand livre des vins 

de France (Mastrojannim) . . 
Ma médecine naturelle 
(Rika Zaraï) 

Dictionnaire des médicaments 
vendus sans ordonnance 
(Giroud J.C et Dr. Hagège) . 
Se soigner seul sans danger 
Dictionnaire conseil des 
médicaments vendus sans 
ordonnance 

La grande manipulation 
(Vallée: Ji)... 
La spasmophilie enfin vaincue 
(Verret P.).............. 
La science de l'homéopathie 
(Vithoulkas G.) .......... 


Perfectionnez-vous aux échecs 
La maîtrise du premier degré 
(Youdowitch MM.)........ 
Guide des mots croisés 

et du scrabble (Zakhiaf) ... 


Ciné télé guide 

J'irai cracher sur vos tombes 
(Boris Vian) 

Jean de Florette, suivi de 
Manon des Sources 

(M. Pagnol) 

En désespoir de cause 
(Robert Hossein) 

Femme Public (Alice Sapritch) 
Le mythe de la vie 

{Ingrid Bergman) 

La route des Indes 

(E.M. Forster) 

Jean de Florette, suivi de 
Manon des Sources (Relié) 
(Marcel Pagnol) 

Les films de Marcel Pagnol 


110,00 
120,00 
140,00 

76,00 


120,00 


130,00 
75,00 
70,00 


120,00 


Comment comprendre votre 
horoscope (T 1) (Holley G).. 
Comment comprendre votre 
horoscope (T 2) (Holley G).. 
L'Astrologie à la recherche 

des clés de la destinée. ... 


L'Astrologie de 

la Transformation (Rudhyard) 
Le cycle de la lunaison 
(Rudhyard) 

La dimension galactique 

de l'Astrologie (Rudhyard) .. 
Les maisons astrologiques 
(Rudhyard) 

Retour de l'Absolu (Rudhyard) 


D Le rythme du zodiaque 


(Rudhyard) 

La triptique astrologique 
(Rudhyard) 

Les aspects astrologiques 
(Rudhyard) 


85,00 
60,00 
80,00 


90,00 
85,00 


60,00 


Dynamique des aspects 
astrologiques (Tierney B.) .. 
Comment devenir voyant 
(M. Bigiani et F. Dollet) ... 
La Dianétique (Ron Hubbard) 
L'Atlantide retrouvée : 

Le huitième continent 
(Berlitz C.H.)............ 
Guide de la Comète de Halley 
et le phénomène mystérieux 
des comètes (Asimov |.) ... 
La biologie de l'esprit 
(Chauvin R}) ............ 
Histoire du spiritisme 
(Conan Doyle A.) 

Loge souveraine ou 

loge esclave (vérité, mensonges 
de la Franc-Maçonnerie) 
(Dangle P.) ............. 
La voix de la vallée, 
l'enseignement d'un maître Zen 
(Des Himaru) 

Les livres secrets 

des Gnostiques d'Egypte 
(Doresse J.) ............ 
Les couleurs visibles 

et non visibles (Duplessis Y.) 
Pratique de l'expérience 
spirituelle (Durckheim K.G.) . 


L'univers inconnu du Tarot 


(Grand R).............. 
Psychologie transpersonnelle 
(Grof) 

L'Alchimie de la vie, biologie 
et tradition (Guillé E. et 
Hardy Ch.) ............. 
Le monde à l'envers : comment 
retrouver les lois de la vie 
(Meglin A) ............. 
La perversion mathématique 
L'œil du pouvoir (Upinsky) . . 
Mystique sacrée, mystique 
profane (Zaehner R.C.) .... 
Les secrets du Tarot 
divinatoire, 1 jeu + 1 livre. 


120,00 
76,00 
85,00 
75,00 


78,00 
78,00 
100,00 


75,00 
85,00 


75,00 
100,00 
90,00 
150,00 
115,00 


79,00 
100,00 
100,00 
120,00 


(Castans R. et Bernard A) . 


a — — 


Libér, 
€z cette for à 
Ce qui est 
Sf en vous 


DUNEIQUE 


D £ | LA PUISSANCE 
La Bourse et l’Astrologie 1 1e | fl 1 PENSÉE 


Astrologie, Esotérisme 


Manuel d'astrologie boursière 
Les cycles astrologiques 

de la vie (Arroyo S.)...... 
L'Astrologie, la psychologie 
et les quatre éléments 
(Arroyo S.)............. 80,00 
Astrologie pratique simplifiée 

(Cluny J).............. 60,00 
Le véritable sens des maisons 
astrologiques (Dorsan J.)... 85,00 
Combinaisons des influences 

astrales (E. Bertin) 87,00 
La vérité sur l'Astrologie 
(Gauquelin M.) 


95,00 cr TD os de LE CORPS 


120,00 


120,00 


O BIEN DEBUTER SUR PC 1512 

Ce livre s'adresse à ceux qui veulent rapidement 
profiter de leur PC 1512. Apprenez comment 
travailler sous GEM. Utilisez GEMPAINT - Fonc- 
tions principales du DOS - Réalisez vos premiers 
programmes en BASIC 2. Réf : R.274 

Prix : 149 F 


O LE LIVRE DE PC 1512 

Ce livre est conçu comme un guide. Vous trou- 
vez des réponses. Comment est-il vraiment com- 
patible ? Qu'est-ce que DOS/PLUS. GEM et MS- 
DOS ? - Quels sont les logiciels disponibles ? - 
Quelles sont les extensions possibles ? 

Réf : R.271 - Prix : 99 F 


© GUIDE DE REFERENCE TECHNIQUE 
DU PC 1512 
Ce guide a été spécialement écrit par l'équipe 
de développement d'AMSTRAD International. Il 
vous dévoile toutes les caractéristiques de votre 
PC 1512: organisation de la mémoire. DMA : 
interruptions systèmes, contrôleur VDU couleur 
alpha/graphique, FDC, port sériel R 232 C, port 
parallèle d'imprimante. Interface et connexions, 
interruptions ROS, RAM non valide. Réf : R.259 
Prix : 249 F 


Q TRUCS ET ASTUCES DU PC 1512 

Comment tirer parti du DOS, de GEM, du BASIC 
2 et des autres langages fonctionnant sur PC 
1512. Parmi les programmes - Générateur de 
programmes, redéfinition du clavier, graphismes 


en 3 D, animations graphiques RAMDISK. 
Réf: R.275 Prix: 179F 


O LE LIVRE DU BASIC 2 

Très complet, cet ouvrage permet aux program- 
meurs de tous niveaux de trouver l'information 
recherchée facilitant l'apprentissage et la pro- 
grammation en BASIC 2. Réf : R.214 - 
Prix : 179 F 


O CLEFS POUR PC ET COMPATIBLES 
Indispensable au programmeur pour accéder rapi- 
dement à toutes les informations. Réf : P.342 
Prix : 195 F 


GLEM SUR AMSTRAD PC 

Constitue une découverte complète et progres- 
sive de GEM: GEM Paint, GEM Write, GEM 
Graph, GEM Wordchart. Réf : P.380 - 

Prix : 185F 


O CLEFS POUR GEM SUR AMSTRAD PC 
Ce livre s'adresse aux utilisateurs avertis d'AMS- 
TRAD PC désireux de programmer leurs propres 
applications graphiques sous GEM. Réf : P.389 
Prix : 195F 


DIVERS COMPATIBLES 


© DICTIONNAIRE AU BASIC IBM 

D.A. LIEN 
C'est la référence de base du langage BASIC 
Microsoft (PC et COMPATIBLES). Réf: P.260 
Prix : 195 F 


© 8088 ASSEMBLEUR IBM PC 

H. LILIEN 
Regroupe trois livres en un seul : un cours d'ini- 
tiation, un manuel de l'utilisateur, un guide pra- 
tique. Réf : R.121 - Prix : 250 F 


8088 ET SES PERIPHERIQUES 

H. LILIEN 

Ce livre est consacré aux microprocesseurs 8088 
et 8086 et à leurs principaux circuits périphéri- 
ques d'accompagnement, tels qu'ils sont 
employés dans les micro-ordinateurs PC d'IBM 
et Compatibles. Réf : R.68 - Prix : 150 F 


O ECRIRE EN DBASE Il ET Ill 

C. MICHEL 
Apprendre à développer en dBASE des applica- 
tions structurées avec des menus, des saisies 
de données, des traitements, des rapports. 
Réf : P.06 - Prix : 185F 


[ MS-D0S PAS A PAS (version 2 et 4) 
A. PINAU 

Apprendre les commandes du système d'exploi- 

tation MS-DOS en les pratiquant, tel est le but 

de cet ouvrage. Réf : P.382 - Prix : 135 F 


O PC, MODEMS ET SERVEURS 

A. MARIATTE 
Apprend aux utilisateurs avertis d'IBM-PC/X/AT 
à se servir d'un MODEM, à utiliser ou créer un 
logiciel de communication, à tout savoir sur les 
réseaux télématiques. Réf : P.339 - 
Prix : 210F 


© INTRODUCTION A DBASE Ill 

A. SIMPSON 
Permet au lecteur même débutant d'apprendre 
la programmation sans difficulté, en réalisant les 
exemples proposés. Réf : S.0131 - 
Prix : 210 F 


Q PRATIQUE DES IBM (Il) 
ENCYCLOPEDIE BASIC 
H. LILIEN 
Encyclopédie BASIC à double accès traitant la 
programmation avancée, les fichiers, le graphi- 
que et la couleur, ainsi que la musique et les sons. 
Indispensable pour éviter les recherches fastidieu- 
ses et les pertes de temps. Réf : R.165 
Prix : 220 F 


O DU BASIC AU TURBO PASCAL 
Comment développer sous Turbo des routines cor- 
respondant à des programmes BASIC. 

Réf : R.211 - Prix : 199 F 


O LE LIVRE DE FRAMEWORK 

R. COHEN 
Le tableau, le gestionnaire de loisirs, le généra- 
teur de graphiques, l'accès DOS, le logiciel de 
communication et FRED : le langage évolué. Indi- 
que aussi la manière de relier le PC au monde 
extérieur. Réf : P.258 - Prix : 150 F 


[ MS—-D0S APPROFONDI 

J, KAMN 
Pour les utilisateurs expérimentés de MS-DOS 
(version 2.1 à 3.1), cet ouvrage a pour but de 
vous familiariser avec les techniques les plus évo- 
luées permettant d'accroître votre productivité. 
Réf : S.227 - Prix : 278 F 


© Nouveau! PRATIQUE DES IMPRIMANTES 
M. ARCHAMBAULT 

Apprendra aux amateurs comme aux profession- 

nels à résoudre les mille et un problèmes qu'ils 

ne manqueront pas de rencontrer lors de la mise 

en service de leur imprimante. - Prix ‘: 95 F 


LES SECRETS DU MINITEL 

C. TAVERNIER 

Principaux chapitres : les différents services pro- 
posés sur Télétel : informatique domestique et 
Minitel, téléphonie et transmission d'information, 
différents principes de transformation de données, 
comment devenir serveur. Réf : R 491 

Prix : 115F 


© SYSTEME D'EXPLOITATION 

ET LOGICIEL DE BASE 

P. JOUVELOT, LE CONTE DES FLORIS 
Moniteurs et systèmes d'exploitation monotâche 
CP/M, MS-D0S, système d'exploitation multitä- 
che, les couches d'un système d'exploitation ; 
Unix, présentation et analyse ; les utilitaires : ges- 
tion de fichiers, assembleurs, éditeurs de liens. 
Réf : R.482 - Prix : 95 F 


© CONSTRUISEZ VOS ALIMENTATIONS 
J.-C. ROUSSEZ 

Schémas échelle 1 : transformateur, redresse- 

ment, filtrage, dissipation de la chaleur, alimen- 

tations non régulées, multiplicateurs de tension, 

alimentations régulées, alimentations à décou- 

page. Réf : R.463 - Prix : 70 F 


0 100 LOGICIELS PUBLICS SUR PC 
J.-F. SEHAN 

Ce livre s'adresse à deux catégories d'utilisa- 

teurs : ceux qui disposent déjà de logiciels du 

domaine public non documentés et ceux qui sou- 

haitent les découvrir. 100 logiciels aussi bien uti- 

litaires que jeux. Réf : P.387 - Prix :145 F 


CO CLEF POUR MS-DOS (versions 2 à 4) 
Y. DARGERY 
Accessible à tous les utilisateurs d'IBM, PC ou 
Compatibles. Permet d'avoir sous la main tou- 
tes les informations concernant les commandes 
des différentes versions de MS-DOS (version 4 
incluse) et divers outils de programmation avan- 
cée. Il donne également de nombreuses astuces 
d'utilisation. Réf : P.384 - Prix : 185 F 


O INITIATION BASIC (niveau 1) 

H.: LILIEN 
Le BASIC ? … Mais c'est très simple ! Ce livre 
vous en convaincra comme il a déjà convaincu 
les dizaines de milliers de lecteurs qui en ont fait 
le ‘’bestseller"” de la micro-informatique. 
Réf : R.52 - Prix : 125 F 


O INITIATION BASIC (niveau 2) 
Programmation structurée 
F. CROCHET, D. VILAIN 
Cette représentation originale, véritable synopti- 
que de l'application, accessible à tous, même aux 
débutants, vous permet de réaliser des program- 
mes particulièrement structurés. Une grande par- 
tie est consacrée à la gestion des fichiers BASIC 
à accès séquentiel direct ou séquentiel indexé. 
Réf: R.158 - Prix : 160 F 


INITIATION AUX FICHIERS BASIC 

J. BENARD 

Avec ce livre, vous découvrirez progressivement 
le “mécanisme” de la constitution d'un fichier 
en BASIC Microsoft, puis de son exploitation. 
Réf : 189 - Prix : 115 F 


INTRODUCTION AU TURBO PASCAL 
D. STIVISON 

Cet ouvrage permettra à l'utilisateur d'exploiter 
la puissance exceptionnelle de ce langage. 
Réf : S.0180 - Prix : 198 F 


LE BASIC ET SES FICHIERS 

J. BOISGONTIER 

Tome 1 - Ce premier tome s'adresse à tous les 
programmeurs initiés au BASIC qui souhaitent 
réaliser des applications utilisant des fichiers sur 
disquette ou sur disque. Ils découvriront la ver- 
sion 5.1 du BASIC Microsoft et apprendront à 
l'employer au mieux sous PC DOS ou MS-D0S. 
Réf : P.246 - Prix : 110 F 


O LE BASIC ET SES FICHIERS 
J. BOISGONTIER 

Tome 2 - Ce second tome est destiné aux pro- 
grammeurs disposant d'un BASIC Microsoft fonc- 
tionnant sous PC-DOS ou MS-DOS. Le corps de 
l'ouvrage est consacré à des programmes utili- 
taires : générateurs de saisie d'écran, tri rapide 
ou à des programmes de gestion (facturation) 
Réf : P.250 - Prix : 105 F 


CPC 464 - 664 - 6128 - PCW 


LE LANGAGE MACHINE 

DE L'AMSTRAD CPC 

Plus loin que le BASIC. Des bases de la program- 
mation en assembleur à l'utilisation des routines 
système, nombreux exemples. Contient un pro- 
gramme assembleur, moniteur et désassembleur. 
Réf : R.228 - Prix : 129 F 


O LE LIVRE DU LECTEUR DE DISQUETTE 
AMSTRAD CPC 
La programmation et la gestion des données avec 
. le 6128, le DD-1 ou le 664 ! Utile au débutant 
comme au programmeur en langage machine. 
Contient un listing du DOS commenté, un utili- 
taire qui ajoute les fichiers RELATIFS à l'AM- 
DOS avec de nouvelles commandes BASIC, un 
MONITEUR disque et beaucoup d'autres program- 
mes et astuces. Réf : R.232 - Prix : 149 F 


C LA BIBLE DU CPC 664/6128 

Tout connaître sur les CPC 6128 et 664. Analyse 
du système d'exploitation, du processeur, le GATE! 
ARRAY, le contrôleur vidéo, le 8255, le chip 
sonore, les interfaces. Réf : R.250 

Prix : 199 F 


MIEUX PROGRAMMER EN ASSEMBLEUR 
T. LACHAND-ROBERT 


Méthodes de programmation en assembleur Z80, 
accompagnées de nombreux exemples de pro- 
grammes d'application fonctionnant sur les Ams- 
trad CPC 464, 664 et 6128. Réf: S.0193 
Prix : 148F 


© MONTAGES, EXTENSIONS 

ET PERIPHERIQUES AMSTRAD CPC 
Tout ce que peut réaliser un amateur d'électro- 
nique avec un CPC. Interfaces, programmateur 
d'EPROM... Un très beau livre de 450 pages. 
Réf : R.235 - Prix : 199 F 


© TECHNIQUES DE PROGRAMMATION 
DES JEUX EN ASSEMBLEUR 
G. FAGOT-BARRALY 
Cet ouvrage contient des programmes de jeux 
écrits pour les ordinateurs Amstrad CPC 464, 
664 et 6128. Chaque programme est accompa- 
gné d'une analyse pédagogique de la structure 
des phases essentielles et de tableaux résumant 
la fonction et les valeurs des principales varia- 
bles. Réf : S.208 - Prix : 98 F 


CO GRAPHISME EN ASSEMBLEUR 

SUR AMSTRAD CPC 

F. PIEROT 
Programmer des applications graphiques en 
assembleur sur Amstrad (464, 664, 6128). De 
nombreuses routines. Réf : P.340 - 
Prix : 145 F 


© AMSTRAD EN MUSIQUE D. LEMAHIEU 
Pour les amateurs déjà initiés au langage BASIC, 
traduction d'œuvres musicales sur Amstrad. Par- 
tant de la génération de sons, en passant par 
le synthétiseur musical programmable. 

Réf : P.324 - Prix : 165 F 


CO RSX ET ROUTINES 

ASSEMBLEUR SUR AMSTRAD 

D. ROY, J.-J. WEYER 
De très nombreux programmes de graphismes et 
de mathématiques permettront aux possesseurs 
d'Amstrad d'améliorer leurs connaissances en 
assembleur Z80. Réf : P.352 - Prix : 200 F 


[ MIEUX PROGRAMMER SUR AMSTRAD 
M. ARCHAMBAULT 

Complément pratique du manuel d'origine. L'art 

de concevoir et de créer un programe d'une 

manière efficace. Multiples astuces. Explique clai- 

rement certains points obscurs du manuel d'ori- 

gine. - Prix : 85 F 


© PROGRAMMES UTILITAIRES 

POUR AMSTRAD 

M. ARCHAMBAULT 
Nombreuses routines : utilitaires de programma- 
tion, utilitaires graphiques, la gestion de fichiers, 
utilitaires imprimantes. - Prix : 85 F 


© APPRENEZ L'ELECTRONIQUE 

SUR AMSTRAD 

P. BEAUFILS, B. DESPERRIER 
Programmes permettant de visualiser les phéno- 
mènes complexes de l'électronique. 
Prix : 95F 


© LA BIBLE DU PROGRAMMEUR 

DE L'AMSTRAD CPC 
Ce livre est l'ouvrage de référence pour tous ceux 
qui veulent programmer en pro. Organisation de 
la mémoire, le contrôleur vidéo, les interfaces, 
l'interpréteur de toute la ROM désassemblée et 
commentée, etc. Réf : R.226 - Prix : 249 F 


© COMMUNIQUEZ AVEC AMSTRAD 

D. BONOMO, E. DUTERTRE 
Pour tous les passionnés d'ondes courtes, codage, 
décodage, réception/émission, interfaces. 
Prix : 90F 


© 102 PROGRAMMES 

POUR AMSTRAD CPC 

J. DECONCHAT 
Idéal pour débutants, pour guider le lecteur dans 
l'exploration du BASIC AMSTRAD. Les program- 
mes à recopier sont classés par niveaux, chacun 
d'eux faisant appel à de nouvelles connaissan- 
ces. Réf: P.222 + Prix : 120 F 


© AMSTRAD A L'ECOLE 

D. NIELSEN, G. AMPUDIA 
Destinés aux enseignants, parents et élèves : le 
calcul, le français et l'éveil. Un cahier de vacan- 
ces permet aux enfants de concevoir eux-mêmes 
de petits programmes. Réf: P.343 - 
Prix : 120 F 


© BASIC PLUS DE 80 ROUTINES 

SUR AMSTRAD 

M. MARTIN 
L'auteur propose 80 routines pour simuler des 
fonctions qui n'existent pas directement sur la 
machine. Le lecteur doit déjà connaître le BASIC 
de l'AMSTRAD CPC pour utiliser au mieux cet 
ouvrage. Tél. P.286 - Prix : 100 F 


© PERIPHERIQUES ET FICHIERS 

SUR AMSTRAD CPC 

D.J. DAVID 
Les ordres correspondant à chacun des périphé- 
riques sont présentés : lecteurs de cassettes et 
de disquettes, imprimantes, crayon optique, 
manette de jeux et RS232. La programmation 
des disques est étudiée en accès séquentiel à 
l'aide d'ordre BASIC et en accès direct à l'aide 
de routines originales. Réf : P.316 - 
Prix : 120 F 


© BASIC AMSTRAD 1 (méthodes pratiques) 
J. BOISGONTIER 

Jeu d'instructions très complet : gestion des inter- 

ruptions en BASIC, sortie stéréo au haut-parleur 

intégré, etc. Réf: P.230 - Prix : 105 F 


© BASIC AMSTRAD 2 

(programmes et fichiers) 

J. BOISGONTIER 
Programmes graphiques utilisant la haute réso- 
lution ainsi que la gamme couleurs. Programmes 
de gestion de fichiers pour Mailing, étiquettes, 
créations d'histogrammes. Jeux à exécution très 
rapide. Programmes éducatifs. Réf: P.249 
Prix : 95 F 


© TURBO PASCAL SUR AMSTRAD 

B. BRANDEIS, F. BLANC - CPC et PCW 
Toutes les commandes sont expliquées et illus- 
trées pour arriver à un haut niveau de connais- 
sances : faire de l’assembleur à l'intérieur des 
routines Pascal, connaître le fonctionnement de 
Heap et de Pile, maîtriser les pointeurs etc. 
Réf : P.310 - Prix : 135 F 


O SUPER GENERATEUR DE CARACTERES 
SUR AMSTRAD 
J.-P. SEHAN 
Propose un programme original de création de 
caractères graphiques qui peuvent être utilisés 
tels quels pour illustrer des programmes de jeux 
ou modifiés au gré de l'imagination du lecteur. 
Réf : P.300 - Prix : 140 F 


CO TRUCS ET ASTUCES T1 

POUR AMSTRAD CPC 
Graphismes, fenêtres, langage machine. Ses 
super programmes sont inclus (gestion de fichiers, 
éditeurs de textes et de sons). Réf: R.221 
Prix : 149 F 


O TRUCS ET ASTUCES T2 POUR CPC 

Vous y trouverez un générateur de menus, de 
masques, des aides à la programmation comme 
un DUMP etc. Réf: R.221 - Prix : 129 F 


[ LES ROUTINES DE L'AMSTRAD CPC 
Pour bien connaître et utiliser les routines utiles 
du 6128, 664 et 464. À la portée de tous. Nom- 
breux programmes utilitaires. Réf : R.239 
Prix : 149 F 


O DEBUTER AVEC LE CPC 6128 

Tout est clairement expliqué, aussi bien pour le 
matériel que pour. le logiciel. Réf :-R.248 
Prix : 99F 


[D Nouveau ! COMPILATION CPC 
Numéros 1, 2, 3, 4 Prix : 70 F 


© LA BIBLE DU GRAPHISME 

Tout sur le GSX. Programmation d'un logiciel 
PAINT graphismes de gestion, graphismes vec- 
torisés, fonctionnement et réalisation d'un light 
pen. Graphisme en langage machine, tout sur le 
graphisme CPC et CPW. Réf: R.227 

Prix : 199 F 


LE GRAND LIVRE DU BASIC CPC 6128 
Ce livre vous permet d'exploiter à fond les capa- 
cités du BASIC LOCOMOTIVE. Attaquer les dif- 
férents domaines de la programmation : tris, fenê- 
tre, protection, sons et musique, mémoire de 
masse avec l'AMDOS et le RAMDISK. Nombreux 
listings d'application de haut niveau, fournis et 
commentés. Réf : R.268 - Prix : 149 F 


© PROGRAMMER 
VOTRE TRAITEMENT DE TEXTES 
J.-C. DESPOINE 

Traitement de textes présenté pour l'essentiel en 


assembleur. Pour 464, 664 et 6128 mis au point 


avec une DPM2000. Il peut facilement être 
adapté à d'autres imprimantes. Réf: S 221 
Prix : 128F 


©] PROGRAMMES EN LANGAGE MACHINE 
S. WEBB 

La façon de programmer l'équivalent des instruc- 
tions BASIC : PRINT, GOTO, GOSUB, FOR/NEXT 
etc, est tout d'abord étudiée, puis ces notions 
sont appliquées à la réalisation d'un jeu d'action. 
De nombreux sous-programmes pourront être réu- 
tilisés par le lecteur dans ses propres program- 
mes. Réf: S.195 - Prix : 82 F' 


© LOCOSCRIPT 

B. LE DU 
Ce livre est une introduction et par sa démarche 
pédagogique, il vous permettra une découverte 
aisée et rapide de ce traitement de textes. C'est 
aussi un ouvrage de référence auquel vous pour- 
rez vous reporter et un guide pratique. 
Réf: S.195 - Prix : 82 F 


ASTROCALC 

G. BLANC, P. DESTREBECQ 

Si vous souhaitez disposer d'un outil de calculs 
permettant l'élaboration d'un thème natal ou 
d'une révolution solaire, la comparaison de thè- 
mes, la recherche automatique des transits et 
progressions tout en comprenant les mécanismes 
mis en œuvre. Alors cet ouvrage vous comblera. 
Réf: S.162 — Prix : 148 F 


[] PREMIERS PROGRAMMES AMSTRAD 
R. ZAKS 

Quels que soient votre àge et votre formation, 

écrivez votre premier programme BASIC en moins 

d'une heure. Présentation claire, comportant de 

nombreux diagrammes et illustrations en couleur. 

Réf : S.105 - Prix : 118 F 


O UNIVERS DU PCW 

P. LEON 
Environnement matériel, commande de CP/M 3.0 
le BIDOS, le BIOS, fichiers binaires, éditeur de 
disquettes, désassembleur Z80, graphismes, 
caractère à la loupe. - Prix : 119 F 


D JOUEZ AVEC MO05 
Eddy DUTERTRE 


©) MIEUX PROGRAMMER SUR ORIC 
Michel ARCHAMBAULT..110 F 


© COMMUNIQUEZ AVEC ORIC 
Denis BONOMO 
et Eddy DUTERTRE 145 F 


CO INTERFACE POUR ORIC-1 ET ATMOS 
M. LEUREL 59 


O0RIC A NU 
Fabrice BROCHE 


© PLUS LOIN AVEC LE CANON X07 
Michel GANTIER 


© SYNTHETISEUR DE FREQUENCE 

M. LEVREL F6 DTA 
Réalisé par un radioamateur, cet exposé n'a d'au- 
tres buts que de donner au plus grand nombre 
le désir et les moyens de réaliser sa propre sta- 
tion, tous modes BLU, FM ou tout autre récep- 
teur de grande qualité. 
Prix : 125 F 


[] CONCEVOIR UN EMETTEUR 
EXPERIMENTAL 
Pierre LOGLISCI 
Entièrement consacré à des montages à tran- 
sistors, le livre est la synthèse d'innombrables 
recherches et le fruit d'une grande passion que 
l'auteur, enseignant enthousiaste et enchanté, 
communique à chaque page et invite à partager. 
Prix : 69 F 


LA PROPAGATION DES ONDES 
Serge CANNIVENC 

Seuls ouvrages de référence de langue française 
sur la propagation des ondes. Ils constituent un 
support de cours idéal pour l'enseignement 
supérieur. 


O Tome 1 - Prix : 165 F 
Tome 2 - Prix : 253 F 


© LA RECEPTION DE SATELLITES METEO 
Loic KUHLMANN 

Ce livre est destiné à un lecteur non spécialiste 
et n'a d'autre ambition que de l'intéresser aux 
techniques de réception des satellites météoro- 
logiques transmettant des photographies de la 
Terre. 

Prix : 145F 


O] TECHNIQUE DE LA BLU 

G. RIGAUD F6CER 
La bande latérale unique est le mode de trans- 
mission le plus utilisé actuellement pour le tra- 
fic sur les bandes décamétriques et pour les liai- 
sons à grande distance en VHF, UHF et SHF. 
Prix : 95 F 


LES ANTENNES 

R. BRAULT et R. PIAT 

Cet ouvrage met à la portée de tous, les grands 
principes qui régissent le fonctionnement des 
antennes. Mais aussi permet aux lecteurs de réa- 
liser et de mettre au point les nombreux dispo- 
sitifs décrits. Réf: R 439 

Prix : 185 F 


LA BAULE-DAKAR... 
EXPEDITION POLE NORD 

] EXPEDITION CARTIER LABRADOR 
EN CANOE KAYAK 


MANOEUVRE 
CATAMARAN CROISIERE 
TRAITE RADIO MARITIME 


162F 


DES AFFAIRES À NE 
PAS MANQUER 


lle à Saut 0 3 


Pensez qu'une 

réparation coûte 

plus cher qu'une 

protection Î \ 


Housses de protection - Simili cuir - (le lot clavier + moniteur) 
Fabriquées et garanties par nos soins. 


CPC 464 et 664 Moniteur monochrome 184 F (port compris) 
Moniteur couleur 184 F 


CPC 6128 Moniteur monochrome C 184 F 
Moniteur couleur 184 F 


PC 1512 Moniteur monochrome 190 F 
Moniteur couleur 


MACINTOSH Clavier simple 
Clavier pavé numérique 


at “éoubles faces, ee densités) | 


ALTER zut 


(port compris) 


- Disquettes 5" 1/4 avec la pochette 50 F 
lot de 10 
- Disquettes 3" 1/2 avec la pochette 190 F 
lot de 10 
- Disquettes 3" avec la pochette cartonnée 270 F 
lot de 10 


LE COQ PATRICK 
DU VILLAGE SEBASTIEN 
(Olympia) 


PAS DE PITIÉ 
POUR LES HÉROS 


PAPY FAIT DE LA 


RESISTANCE TRANCHES 
DE VIE 


NOCES DE SANG DOUX MOMENTS 
DU PASSE 


roue 7° sf DE GUERRE SCOUT NUIT D'IVRESSE 
LA] LE 2 MONDIALE JE FILE TOUJOURS MA vycnos 


TRESSES k A L'ÉTRANGER Se. 


L'HORRIBLE PSYCHOSE BEN 
SEXY VAMPIRE phase 3 


POLICIERS 


VIOLENCE LA VENGENCE 
A MANAOS DE LAMA 


DEFI SANGLANT 


LE CASCADEUR RAGE DE TUER 


CHINOIS 


LE JEUNE TIGRE — KENSAI — TEMOIN À ABATTRE 
DU KUNG-FU | “ si 


POLICIER MUSICAL 


AGATHA CHRISTIE - Le dossier d'une Tina Turner - Nice N'Rough 
femme d'un certain âge Phil Collins - Live 
Regain Peter Tosh - Live 
Porte des Lilas Whitesnake - Live 
Les diaboliques Duran Duran - Dacing on the Valentine . 
L'héritage de la violence Stamping Ground 
Les aventures d'Arsène Lupin ..: Bongo Man 
La femme flic Sheila E 
Le mors aux dents 
L'homme aux nerfs d'acier 
VIDEO MUSIQUE NOUVEAUTE 
Une robe noire pour un tueur 
Le bar du téléphone Kate Bush - The whole story 
Tina Turner - Break every rule 
Queen - Live in Budapest 
Arcadia - Arcadia 
Talking heads - Stop making sense 
Le salaire de la peur John Lennon - Imagine 
Si Versailles m'était conté Iron Maiden - Live after death 
Le troisième homme 
Caroline chérie 
Fanfan la Tulipe COLLECTION ‘GRANDS CLASSIQUES"" 
Les mongols 
Les titans La conquête de l'Ouest 
Les douze salopards 
Les prédateurs 
Peter et Elliott le dragon 
Tron 
L'homme que je suis .. Horowitz à Moscou (stéréo/Hi-Fi) 
Cela s'appelle l'aurore The compleat Beatles (stéréo/Hi-Fi) 
Poil de carotte Autant en emporte le vent 
Passion d'amour Soleil vert 
Allons z'enfants 
Sauve qui peut 
Parfum de femme 
Les frères 
Retour à Marseille 
Les grandes manœuvres Robin des Bois 
Les bijoutiers du clair de lune Le nouvel amour de Coccinelle 
La curée Peter et Elliott le dragon 
Tron 
La bande à Donald 
Le Noël de Mickey 
Winnie l'ourson et l'arbre miel 
Tout l'or du monde Droopy - vol. 1 
Est-ce bien raisonnable ? .............................. Festival de dessins animés (Tex Avery...) ................. 
Archimède le clochard ‘La panthère rose - vol. 1 
Et Dieu créa la femme Tom et Jerry ‘La souris valseuse” 
Un drôle de caïd Tom et Jerry - vol. 1 
Affreux, sales et méchants Tom et Jerry - vol. 2 
Cocktail Molotov Tom et Jerry “Souris Follies' 
Robinson et le triporteur Tintin “Le crabe aux pinces d'or” 
Cigalon Tintin “L'étoile mystérieuse" 
Prends ta Rolls Tintin “L'île noire” 
On n'y joue qu'à deux Tintin “Objectif lune” 
Tintin ‘’Le secret de la Licorne” 
Tintin ‘Le trésor de Rackham le Rouge” 


TT een 


EN 


qe LE à | | 


| 
| 


Chaplin inconnu 


Les maîtres de l'univers 1 
Fat Albert 1 


Les Bisounours 1 
La vie des Botes 1 
Les entrechats 1 
Le vent dans les saules 
Arok le barbare 
MT 
Pataclopp Pénélope Il était une fois à Hollywood 
Scoubidou va à Hollywood Le magicien d'Oz 
Dorothée. on va faire du cinéma Le champion 
2001 l'odyssée de l'espace (stéréo/Hi-Fi) 
Poltergeist 
Quo Vadis 
ee Victor/Victoria 
La femme tatouée Eddy Paris Mitchell (stéréo/Hi-Fi) 
Madame Bovary Sardou concert 87 (stéréo(Hi-Fi) 
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nTE<mH CU NnzZO> 


Un mémento 


U 


révisions 
ere Lnous sign 


Les con 


BOITES DE 
RANGEMENT 
MEDIA BOX 


COMPACT 
DISC 


Pour 13 compact 
discs 
Port 25 F 


Recommandé facultatif 
par Boîte 7 F en plus 


PROFITEZ DES PRIX BRETAGNE EDIT'PRESSE 


Pour 9 cassettes 


æ5>p| vidéo VHS, V2000 


Beta 


Port 25 F 
Recommandé facultatif 
par Boîte 7 F en plus 


Pour 40 
| à 150 disquettes 
3", 3" 1/4, 3" 1/2 


Port 25 F 
ommandé facultatif 
par Boîte 7 F en plus 


DISQUETTES.. 
3" 


Pour 
16 minicassettes 


CASSETTES m2 


Recommandé facultatif 
AUDIO 


par Boîte 7 F en plus 


personnel 


Un planning 


n tableau des ascendants 


globales 
e en 88 


selis pratiques 


Les prévisions 


semaine par semaine 


Des petits encadrés 


L'agenda 


Le répertoire 


DISQUETTE 


b" 1/4 


Pour 50 
à 70 disquettes 


175 F 


Port 25 F 
Recommandé facultatif 
par Boîte 7 F en plus 


Textes : Laure-Marie LAPOUGE 
Illustrations : Nicole PIBEAUT 


Je joins mon règlement 


ÉDITIONS DU QUETZAL 


mandat 


NmTOMmAORT nm Nnmnnn>nn 


BON DE COMMANDE chèque bancaire chèque postal 


a adresser à Prénom 


BRETAGNE EDIT'PRESSE 
La Haie de Pan - 35170 BRUZ - 
Tél. 99.57.90.37 


Code postal  ______ Signature 


"Ecrire en majuscules" 


Sn 


ne 
Q 


V7 
\ 


SAN, 


ETUDIE 2 
BRANCHE! 


?n 
AR TRE 
SP ITA RES 


AQU 
COARATN CIN 
ee + 
per 
Ar AT,\SZ 
TUISI=NIN 


SIZN 


V1207 


\ 
NS 


CHAQUE LOGICIEL COMPREND 


+ Un rappel des cours 


+ Des exemples ou démonstrations 


si 


RE LE 


MATHS - 6 

Algèbre pour classe de 6ème 
(également intéressant pour 
CMi-CM2) 

M. et M.-T. COQUIO 


+ Des exercices programmés ou libres 


+ Opérations + ;-;x ;/ 

+ Fractions 

* Calculs sur les relatifs 

+ Pourcentages avec graphisme 

+ Suites proportionnelles avec graphisme 
+ Calculs d'aires 

+ Symétries orthogonales 


PC —— 
+ AMSTRAD 


2K7 


1 disk 


+ ATARI ST 
1 disk 


Prix TTC 
220F 


170F 
200 F 


220 F 


MATHS - 54 

Algèbre pour classes de 5ème 
et 4ème 

M.etM.-T. COQUIO 


* Multiples et diviseurs d'un entier 

- Nombres premiers 

- Puissances d'un entier naturel 

+ Décomposition d'un entier naturel 

+ P.G.C.D. et P.P.C.M. 

+ Calcul algébrique 

+ Rationnels (simplifications et opérations de fractions) 
- Equations et inéquations dans R 


MATHS -3 
Algèbre pour classe de 3ème 
M. etM.-T. COQUIO 


+ Constructions de vecteurs 

+ Calculs sur les droites 

+ Systèmes linéaires 2,2 

+ Régionnement du plan 

+ Calculs sur les racines carrées 
+ Notions de trigonométrie 


EQUATIONS 

Algèbre pour classes de 3ème 
et 2nde 

M. COQUIO 


* Equations du second degré avec interprétation graphique 
+ Systèmes linéaires 2,2 

+ Systèmes linéaires à n équations 

+ pinconnues (n, p < 8) (sur disquette seulement) 


* PC 


+ AMSTRAD 
2K7 
1 disk 


+ ATARI ST 
1 disk 


+ AMSTRAD 
2K7 

1 disk 

*PC 

+ ATARI ST 
1 disk 


+ AMSTRAD 
1K7 
1 disk 


220 F 
(octobre) 


170F 
200 F 
220 F 


170F 
200 F 
220 F 


220 F 


+ Un rappel des cours  -— : — 
+ Des exemples ou démonstrations 


MATHS - Second cycle 1 
Niveau 2nde à terminales 
M. COQUIO 


MATHS-Second cycle 2 
Algèbre 2ème à terminales 
M. COQUIO 


+ Des exercices programmés ou libres 


+ Equations du second degré avec interprétation graphique 

+ Courbes Y = F{x) avec choix du repère et des unités 
intégrales par la méthode des rectangles avec interprétation 
graphique et exercices 

+ Suites récurrentes avec graphisme 

* Fonctions réciproques 


+ Image par application affine 
+ Courbes avec options (dont hardcopy) 
+ Courbes superposées 
+ Courbes définies par morceaux (disquette) 
+ Famille de courbes 
+ Courbes planes (cinématique) 
+ Courbes définies par une intégrale 


GEOMETRIE plane 
Niveau 4ème à terminales 
M. HIRTZLER 


Utilitaire de dessin pour tracer points, droites, segments et cercles 
avec résultat de géométrie analytique. 

Utilitaire de TRANSFORMATIONS (translation, homothétie, simili- 
tude...) sur des figures simples (carré, triangle, cercle….). 


ESPACES et SOLIDES 
Niveau Îère et terminales 
M. HIRTZLER 


FONCTIONS et 
COMPLEXES 

Niveau Terminale et Sup. 
M. HIRTZLER 


= | 


Utilitaire de dessin dans l'espace avec la perspective "fil de fer". 
Représentation de solides dans l'espace avec choix des angles de 
perspective. 


NOUVEAUTES 


— Tracé de y = f(x), polaires, droites, enveloppes avec choix du 
repère et des unités. 

- Calculs, calculs d'aires 

— Exemples (conchoides, cissoides, coniques) 

— Complexes (calculs, équations, transformations et exemples). 


FRANCAIS 
Niveau CM1, CM2, 6e 
A. MALASSIS 


701 61 33 


71 00 154 


- Dictée réussie 

- Exemples et exercices 

- Conjugaison 

- Participes passés avec ÊTRE et AVOIR. 


Prix TTC 


+ AMSTRAD 
2K7 
1 disk 


+ AMSTRAD 
2K7 
1 disk 


| + AMSTRAD 


1 disk 

+ ATARI ST 

(géométrie plane et dans l'espace) 
L'OISK 2 


+ AMSTRAD 
1 disk 


+ ATARIST 
1 disk 


+ AMSTRAD CPC 


Equation, inéquation 4ème et seconde 
TO7, TO8, MO5, MO6 - cassette seulement 


Balade Outre-Rhin 4ème et 3ème. 
IBM - Disquette 


71 00 153 


7100 147 


Balade au Pays de Big-Ben 6ème et 5èmüe 
IBM - Disquette 


Enigme à Munich 4ème et 3ème 
IBM - Disquette 


660 42 72 


Je révise sciences 6ème et 5ème 


LES UTILITAIRES 
; 


La" trilogie" du 6128 (disponibles sur disquette seulement). 


Tasword 6128 "Mailmerge”. Le traitement de texte du 6128 
Masterfile 6128 Base de données relationnelle 
Mastercalc 6128 Tableur simple, rapide et puissant. 


360 F 
360 F 
300 F 


ë tronics. Tasword 6128 peut s'utiliser avec les extensions VORTEX. Clavier AZERTY accommodé. 


Masterfile et Mastercalc peuvent envoyer leurs données vers Tasword. Tous trois sont utilisables sur 464/664 + extension 64K Dk' 


Tasword 464 


\ 1201 D Tasword "disquette" pour 464 et 664 (avec Tasword 6128) 

k 1208 D Tascopy, copies d'écran (8 tons de gris, formats A4 & A3) 

;; 1207 K Tascopy CPC version cassette 

j 1258 D Semabank, gestion de comptes bancaires rapide et fiable 

à 1259 D Statistiques multivariées pour CPC 464 et 6128 

à 1205 K Tasprint CPC sur cassette 

1212 Conversion BUS 6128 nouveau pour périphériques standard (extensions, synthés, 


digitaliseurs..). 


260 F 


395 F 
190F 


175F 


Tasprint, le typographe. 5 écritures sur CPC, 8 sur PCW. 
\ (compatible Tasword CPC & PCW, Locosript, Wordstar...) 
Tas-Sign, l'artiste en lettres, enseignes, réclames créez-les vous même... 


PRODUITS P.C.W. 8256 ET 8512 


l 1217D Tasword 8000, le traitement de texte rapide avec “mailmerge" pour les utilisations 
! professionnelles. 
| 1221 D Masterfile 8000, la base de données relationnelle travaillant entièrement en RAM, rapide, 


flexible, simple et puissante. 


PRODUITS "PC"1IBM ET COMPATIBLES 


Tasword PC, le traitement de texte des PC, simple, puissant et avec "mailmerge”. 


Tasprint PC, le typographe, 20 écritures, créateur de caractères, mode "machine à écrire”. 
Tas-Sign PC, l'artiste en lettres, enseignes, réclames créez-les vous-même... 


450F 


550 F 


490F 
390 F 
390 F 


Enterprise 


aoto REVEIE 


gorrMR 


SUPERBE CASQUETTE FM 
200 F Port compris 


| 
\ 
À 
| 
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a 
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EE 


[1] AUTO RADIO 


Réf. : CR 150 FL 

GO FM stéréo 

Affichage digital 

Avance rapide 

Horloge incorporée 

2x5W 

Livré avec notice de montage très 
explicative. 


599 F (port compris) 


[2] RADIO CASSETTE 


Double K7 

Réf. : CR 150 FL 

Radio 3 gammes : PO GO FM stéréo 
Enregristrement automatique 
Alimentation pile-secteur 

Micro incorporé : copie automatique 


720 F (port compris) 


RADIO REVEIL 
TELEVISION 


Marque : AUDIOLOGIC 

Réf. : 3705 

Téléviseur noir et blanc 

Normes CCIR : EUROPE 

Haute performance 

Radio PO-GO-FM 

Réveil à affichage digital 

Réveil matin par la TV ou la radio 
Alimentation 220 V ou 12 V 


1 415 F (port compris) 


[4]  RADIO-REVEIL 


Affichage électronique permanent 

24h / 24 

Radio GO-FM 

Réveil automatique radio ou sonnerie 
Garde la mémoire si coupure de courant 


155 F (port compris) 


[| BALADEUR 


Marque : KASUGA 

Réf. : KC8 

4 couleurs : rouge, bleu, moutarde, 
blanc. 

1 mini lecteur de K7 stéréo 

Pince au dos : livré avec casque 
Alimentation 2 piles R6 (non fournies) 
Un prix très léger : 


124 F (port compris) 


[6] BALADEUR 


Marque : KLERVOX Réf. : VT28 
Enfin 1 mini enregistreur 
Caractéristiques : 

— lecteur-enregistreur de poche 

— microphone incorporé 

Avance rapide 

Haut-parleur de contrôle incorporé : 
deux vitesses 

Parole : musique égaliseur 3 bandes 
300 Hz - 2 kHz - 8 kHz 

livré avec casque 


615 F (port compris) 


[7] BALADEUR 


Marque : KLERVOX Réf. : VT-84 

1 lecteur de K7 stéréo 

Avance et retour rapides. 

Combiné avec recepteur radio 

FM stéréo et égaliseur à 3 curseurs 

100 Hz - 1 KHz - 10 kHz 

Livré avec casque 

Alimentation 2 piles R6 (non fournies) 
415 F (port compris) 


[8] TELEVISEUR TUBE 


Marque : VIDEOLOGIE Type : 3703 
Téléviseur noir et blanc 11 cm 
Sélecteur VL/VH/VHF 
Alimentation 220 V ou 12 V 
Plaque de fixation voiture 
Boîtier pile 

1015 F (port compris) 


Lo] TELEVISEUR 
CRISTAUX LIQUIDES 


Marque : CITIZEN Réf. : 18 TA 
Dans votre poche, au bureau, dans la 
voiture, il pèse 290 grammes. 
Réception UHF/VHF 
Reçoit toutes les chaînes françaises. 
Livré avec casque et notice. 
POCHE PORTABLE 

1 515 F (port compris) 


BUREAU PORTABLE 
1315 F (port compris) 


BON DE COMMANDE Bien inscrire les ARTICLES dans 


la bonne rubrique ; le port étant cal- 
a adresser à BRETAGNE EDIT'PRESSE -— La Haie de Pan culé en fonction de l'objet a 
35170 BRUZ -— Tél. 99.57.90.37 expédier. 


CALCULEZ LE COUT : Montant de l'article + Port = VERITE DES PRIX 


DESIGNATION Réf. | Qté Prix + Port Montant 
aun unitaire 


a | DR 
S=—— 
se 


UNIQUEMENT en recommandé (20 F par cassette) 


4 


Ma bibliothèque 


Envoi Poste 


:10 % 

EE 
= 

—_]_ 
| 
| 


Envoi UNIQUEMENT en recommandé (25 F par logiciel) 


Etudiez-Branchez 
Scolaire - Utilitaire 


Montant 


Son et image 


Housses - Disquettes 


Envoi FRANCO "Sur toute la France" (Etranger nous consulter) 


MONTANT GLOBAL 


Je joins mon règlement chèque bancaire O chèque postal O) mandat [) carte bleue 0 
IMPERATIF 


Si vous choisissez le paiement 
par Carte Bleue, n'oubliez pas 
d'indiquer le n° de la carte et 
la date de validité ainsi que 

Code postal votre signature 


"Ecrire en majuscules" 


N° CARTE BLEUE CLEO TI LI 
DATE Limite de validié [1111] Signature 


Prénom 


CHAMPIONNAT 


André BARKAT 


NNNANT 


Pour les deux menus, seules les touches 
!1|!! et !‘1!! et ‘COPY!’ sont effectives. 


MENU PRINCIPAL 


Le curseur doit être positionné sur l'option choisie. 

Appuyez une fois sur ‘‘COPY’’, l'option clignote. 

Appuyez une seconde fois, le menu secondaire s'affiche. 

Si vous n'appuyez pas une seconde fois, le curseur peut à nou- 
veau être bougé. 


MENU SECONDAIRE 


Il permet de la même façon, soit de revenir au menu principal, 
soit de confirmer l'option. 


MENU PRINCIPAL 
NOUVELLE JOURNEE 


e Choisir la journée (avec ‘‘l’’ et ‘1’ et ‘’ COPY”). 

e Sélectionner l'équipe qui recevait. 

e Inscrire le nombre de buts marqués par cette équipe. 
e Inscrire le nombre de buts marqués par l’autre équipe. 
e Sélectionner l’équipe qui a été reçue. 


Tapez sur ‘’A’’ pour annuler ou ‘‘C'" pour confirmer. 

Tapez sur ‘M’ pour le retour au menu ou ‘‘U"’ pour un autre 
match. 

La journée peut être entrée complète ou incomplète. 


CLASSEMENT 

e Sélectionner la journée. 
e Patientez 

Pts = points 

p. = buts pour 

c. = buts contre 

G = matches gagnés 

N = matches nuls 

P = matches perdus 

J = journées déjà jouées 


GRAPHIQUE 


e Sélectionner l'équipe 
Les journées déjà jouées apparaissent en foncé. 


SAUVEGARDE 


Sauve les données créées par Nouvelle journée sur le disque 
face B en effaçant l’ancien fichier. 


CHARGEMENT 


Charge les résultats déjà enregistrés pour la saison 
IMPORTANT : c'est l'opération qui doit être effectuée en pre- 
mier après la mise en marche de ‘’CHAMPION”. 


RESULTATS 
Sélectionner la journée : les résultats entrés s'affichent. 


FORME ACTUELLE 


Sélectionner la dernière journée. Une note est attribuée à cha- 
que équipe. Elle va de O à 40 selon les résultats des 5 dernières 
journées. Elles représentent la forme actuelle de chaque équipe. 
Cette option aide à pronostiquer les résultats. 
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à. 


EXPLOITEZ 
VOTRE 
AMSTRAD 


le 


livre + la cassette 


103 F' co 


Jeux - Gestion 


Education - Domestique 
Impression de documents 


Un best-seller 


Bon de Commande 
à renvoyer à STAMP DIFFUSION, 17, rue Russeil - 44000 NANTES 


Exploitez votre Amstrad. 


Nom 


103 F - Port gratuit. 


Prénom 


Adresse 


Ci-joint chéque de 103 F. 
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EXEMPLE : 

— Si [note de l’équipe qui reçoit + 5] > [note de l’équipe reçue] 
alors cocher 1 sur le bulletin du loto sportif. 

— Si [note de l'équipe qui reçoit + 5] = [note de l'équipe reçue] 
alors cocher N sur le bulletin du loto sportif. 

— Si [note de l’équipe qui reçoit + 5] < [note de l’équipe reçue] 
alors cocher 2 sur le bulletin du loto sportif. 


QUITTER 


Pour quitter le programme. 


NB : le listing 1 doit être actualisé : il suffit de remplacer 1986 
par 1987 en ligne 30, puis de modifier la série de DATAS ligne 
250. 


LES PROGRAMMES 


— Chargement : tapez RUN ‘’C----"’ (donnée en 4 chiffres : ici 
‘C1987'. Le programme principal ‘‘CHAMPION'’ se charge 
seul. 

— “C1987" : ce programme en BASIC charge en mémoire (par 
pokes), l’année et le nom des équipes, puis lance le programme 
principal. Pour chaque saison, il faut créer un nouveau ‘‘C----"’ 
en chargeant seulement l’année et le nom des équipes. 


Modifications : pour Amstrad 464 à cassettes : enlever IERA 
et ajouter ‘‘!"" à toutes les fonctions qui utilisent le magnéto- 
phone (LOAD,SAVE) dans le chargeur ‘‘C1987'' et le pro- 
gramme principal ‘’CHAMPION''. 

Pour CPC 664 et 6128, remplacer tous les DECS$((---) par 
DEC$ (---). 


16 DIM equ1$(26} #£E 
20 REM HHH##H#H#K# 1906 HHHA #NU 
36 E=1986 :CH 
49 pi=e MOD 256 :0H 
99 p2=iE-pi}/256 DD 
69 POKE 37309,p2 #DH 
76 POKE 237391,pi :DJ 
Bù REM HHHH#RHK# 1906 HRK NA 
96 FOR N=1 TD 26 WG 
169 READ EQUI$(ni:1F LEN(eQUI$(n)):11 THEN eQUI$(n)=LErF >UG 
T$(EQUIS(n). 11} 

114 NEXT DH 
126 FÜR p=i TO 26 +CD 
138 FOR b=1 TO LEN(EQUIS$(F)} AVC 


148 POKE 27646+(p-1)1#11+(b-1),ASC(MID$ (equi$(p),b,lii :HC 
159 NEÂT b:FÜR B=LEN(EQUI$ (F) +1 TO 11:POKE 37660+(p-1) EU 
#ii+(b-1},0:NEXT B:NEXT F 

166 INK G,G2:INE 1,8:1INE 2,26: INK 3,1: BORDER 9: MODE 1 UK 
179 TAG:FLOT 146,284,2:FRINT "CHAMPFIONNA T";:T 36 
AGOFF 

188 TAG:PFLOT i46,288,2: PRINT * “ses” “1:TAG AG 
OFF 

198 TAG:PLOT 146.192,2:PRINT ‘ LOADING"::TAGDF :AF 
F 

268 TAG:FLOT 146,96,2:PRINT * “CHR# CG) ANDR :LK 
E"::TAGOFF 

214 TAG:PLOT 146,64, 2:PRINT " BARKH A T'::TAGOFF XL 


226 PRINT CHR$(22)+CHR$ (1) :LOCATE i8.Z:PEN 1:FRINT CH 
ÀAMFIONN A T":LOCATE 19,8:FRINT * “ie: 
“eLOCATE 19,14:: PRINT " LOADING" 

221 LOCATE 19,Z24:FEN Z:PRINT * “CHR ilédii" ANDRE 
E:LOCATE 16,22:PRINT * BARE À T':FRINT CHARS (23; 
+CHRS (6) 

234 RUN "champion 

240 REM #HHKHHHHK 1956 #H#H# 


256 DATA BREST, PSG, NANTES, MARSEILLE, BORDEAUX. RENNES, SÛC : 


HAUX, ST-ETIENNE, NICE, LENS. TOULOUSE, NANCY, AUXERRE. TOULON 
LILLE,LE HAVRE,MONACO,RC FARIS, LAVAL. METZ @ 


14 CLEAR: MEMORY 29870 

26 

D OC OHAHANARARAERRRR 

46 

96 SYMEOL 240,4,0,0,0,0,0,:6.0 
ôë SYMBDL 241,4.0,0,.0,0,9,40,0 
76 SYMEOL 242,9,0,0,4,2,2,0,8 
B4 SYMEOL 247,6.0.128.04.64,64.6,0 
96 SYMBOL 244,46,73,48,0,4,0,0,6 
199 SYMBOL 249,6,56.84,124,84,56,%  bailon 


crampons 
crampons 
banoes 


Ze 


Lot 


bandes 


119 SYMEOL 254,56,66,170,134.174.66.56 ballon 
126 SYMEOL 251,4,4.1,11,125,125.6.0 chaussures 


136 SYMEUL 252,124,124,124,186,188.188,4.0 chaussures 
146 SYMEUL 254.63.15.7,7,7,7,15,83 demi cercle 
156 SYMEOL 255,252, 246, 224,274, 224,254, 244, 252 
cercie 

164 BORDER 9:INE 9,.9:FAFER 

174 PEN 1s:1iNk 1,0:1NE 2,28: INk 3. IG: MODE 1 

186 

1900 HAAARAHAENAIEHHANNERR 

296 

214 DIM tpt(26),tpri2é),tpci2b).ao(26) 

224 DIM pl(Zii.niizii 

234 DIM mus(z5},fiag(2i} 

248 DIM joi26),qat£4) .peiz@).nut:6) 

236 DIM ciass (2) 

264 DIM equ1$(26) 

274 FOR n=i TD à 


demi 


286 FOR b=i TO 1itequi$ini=equi$in)+CHR$(FEEE (37646+in 


-1)#1i+(b-1))):NEXT b 

290 NEXT 

394 annee=PEËEK (77366) #256+PEEK (37301) 
Ji8 

J26 CO HHAARRHENHERAARHRE MENU PRINCIFAL 
316 

346 FOR n=i TO 8 

354 READ phré(n) 


MH 


#RR 


?H4 


#AU 
2MJ 


36 NEXT 

376 DATA NOUVELLE JOURNEE 
386 DATA CLASSEMENT 

350 DATA GRAPHIQUE 

466 DATA SAUVEGARDE 

416 DATA CHARGEMENT 

à2ë DATA FORME ACTUELLE 
436 DATA RESULTATS 

446 DATA QUITTER 

458 FOR n=1 TD 2 

45é READ phri$in) 

476 NEXT 

486 DATA CONFIRMATION 

496 DATA MENU 

5ûû 

519 OHH#HH#H#H#HHHHHAHHE CADRE DE PRESENTATION 
6 


526 TAG:FLOT 146,384,Z: PRINT CCHAMFIONNAT"aT : 


AGÜFF 


546 FRINT CHR$(22)+CHR$ (17: LOCATE 10,2: PEN 1: PRINT “ Dé 


CHAMPIONNAT": PRINT CHR$(Z2)+CHR# (0): ORIGIN 
9.0: FLOT 16,16,1: DRAM 626,16: DRAW 626,356: DRAM 19,35 
G:DRAW 16,16 


554 FLOT 8,8:DRAW 922,8: DRAW 632,352: DRAW 8,352: DRAM 6, : 


B:FLOT 24,26: DRAN 624,20: DRAM 626,344: DRAW 26, 346: DRAW 
26,26:PLOT 36,36: DRAW 610,30: DRAN 61,306: DRAW 39. 306: D 
RAK 36,30:FLOT 14,16:DRAM 29, 26:PLÛT 636.16: DRAN 625,24 
:FLOT 19,350 


56% DRAW 26,346: PLOT 634,356: DRAN 626,746 
370 

JO CO HHARAMHMANARARHAN 

590 


bob LOCATE 3,5:FPRINT SPACE (34) :LOCATE 18,5:PEN 3: PRINT : 


CHR$ (24) : : PRINT CHRS# (295) +"MENU"+CHRS (254) : PRINT CHR#( 
Z4):FEN 1 

bit 
620 
b:5ù 
64% WINDOW #3,6,22,8,22:CLS #3 

65% FOR n=1 TD B 

66h FEN 1:LOCATE 6,8+2#(n-1}:PRINT PHR$(n} 

674 IF n:8 THEN SOUND 1.254,6,5,4.4,3:SOUND 1,56, 4.4 


RAHARARRARRAANER 


680 NEXT 
EC 
76 
714 
724 PRINT CHARS (22) +CHR8 (1) 

736 FOR n=1 T0 8 

74ù PEN 1:LOCATE 25,8+2#(N-1):PRINT CHARS (256) 

756 FEN Z:LOCATE 25,8+2#(N-1):PRINT CHR$ 1249) 

7éù IF n£>8 THEN SOUND 1,256,6,5,0,0,.3:SOUND 1,54,2,6 
778 NEXT 4 
780 PRINT CHR$(221+CHR$ (0) 

796 
£oë 
819 
826 po=B 


HAHARRRRRNRAINNR 


DORHRRHMERRRARRANER 


:TD 
?TE 


839 PRINT CHR$(22;+CHR$ (1) 

849 LOCATE 27,po:PEN 1:PRINT CHR$ (251) +CHR$ (252) 
856 LOCATE 27,po:PEN 3:PRINT CHR$ (246) +CHR$ (241) 
866 LOCATE 27,po:PEN Z: PRINT CHR$(2427+CHR$ (243) 


876 PRINT CHR$(22)+CHR$ (0): 

E8ÿ ‘ 

890 HHARAAENARIENEANE 

969 

919 FOR te=i TO 134:NEXT te 

926 a=INKEY (0) :b=INKEY (2) :c=INREY (9) 

936 IF \a-b}<26 OR c=6 THEN LOCATE 27,p0:FRINT * 
{poi=6 

940 IF NOT a THEN po=po-2:1F po=6 THEN po=ë 
956 IF NOT b THEN po=potZ:IF po=£4 THEN po=22 
96% IF NOT c THEN GOTO 1624 


974 IF mus(poi=6 THEN SOUND i,1406,9,7:SOUND 3,1199,9,6 ; 


:mus (po)=i 
984 GOTO 839 
990 

1600 CHAINE 
1816 : 

1826 IF po=B THEN 1=i 
1836 IF po=ià THEN 1=2 
1646 IF po=iz THEN 1=3 
1959 IF po=i4 THEN 1=4 
196% IF po=ié THEN 1=5 
1476 IF po=ië THEN 1=6 
1689 IF po=24 THEN 1=7 
1494 IF po=2£ THEN 1=8 
1194 c=-1 


1118 LOCATE 6.po: PEN Z:SOUND 1,506.6.9,0,0, 1:FRINT phr$ : 


(1}+" "FOR tezi TO 6G:NEXT te 

1126 LOCATE 6,po:FEN 1:PRINT phr$(li+" 
1136 IF #015=15 THEN +#015=4:G60T0 546 
1144 c=INKEY (9) 

1156 FOR te=i TO ZMG:NEXT te:fois=fois+i 
1iéë IF cii-1 THEN 118ù 

1176 GOTD 1146 


1186 SOUND 1,76,16,9:S0UND 3.86.16,7:SOUND 4,54, 10,6:FD 


R te=i TO 200: NEÏT te 

1196 LOCATE 6,po:FEN Z:FRINT phr$(i)+" " 
1206 

1210 CC OHAHAHAMMHHHHENEHHHHE MENU SECONDAIRE 
1226 ‘ 

1236 WINDOW #3,6,22,8,22:CLS #3 

1244 FOR n=i TD £ 

1256 FEN 1:LOCATE 6,8+2#(n-1}:PRINT FHRI$(n) 


1269 IF n£>2 THEN SOUND 1,256,6,5,4,6,3:SOUND 1,56,2,6 


1274 NEXT 
1286 b=LEN(phr$ (li) 


1296 LOCATE (46-bj\2,S:PEN 3:FRINT CHR$ (24) +CHR$ (0): 2 PR 
INT CHR$ (255) +phr$(Li+CHR$ (254) : PRINT CHARS (24) +CHR$ (Gi: 


FEN 1 

1366 FOR n=1 TD 8 

1319 LOCATE 25,8+2#(N-1}: PRINT 
1329 NEXT 
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ED 
JC 
2FR 
LU 
#Yü 


#HP 
XF 
?XG 
#kH 
?XT 
CB 
LC 
#WL 
LB 


NA 
PE 


2H 


1356 PRINT CHA$:22)+CHR$ (1) 

1546 FÜR n=1 TÜ 2 

1354 PEN 1:LOCATE 25,8+2#(N-1):PRINT CHR$ (250) 
1366 PEN Z:LOCATE 25.8+2#(N-1):PRINT CHR$ (249) 


1579 IF n£32 THEN SOUNE 1,296,6,5,6,4,3:SOUND 1,56,2,4 


1364 NEXT 

1396 PRINT CHR# (22) +CHR$ (0) 

1466 

1410 CO HAHHHAHMIEHNHHEHHHMHHIENE 

1426 

1456 po=B 

1446 PRINT CHR$(22)+CHR$ (1) 

1454 LOCATE 27,p0:FEN 1:FRINT CHR$(251)+CHR$ (252) 
1466 LOCATE 27,po:FEN Z:PRINT CHR$(240)+CHR$ (241) 
1474 LOCATE 27,po:FEN Z:PRINT CHR$(242)}+CHR$ (243; 
1486 PRINT CHR$(22)+CHR$(@): 

1496 

1500 © HHHHHAAHHHAMANAHHHHHNHEHHE 

1514 

1526 FOR te=i TD 156:NEXT te 

924 a=INKEY (4) :b=INKEY (23 :c=INKEY (9) 

1546 IF (a-b)4>4 OR c=ù THEN LOCATE 27,po:FRINT " 
s(po)=È 

1559 IF NOT a THEN po=po-2:1F po=6 THEN po=ë 
156% iF NOT b THEN po=po+2:IF po=iZ THEN po=iÿ 
1574 IF NOT c THEN GÜTO 1634 


mu 


LL 


:U6 


1586 IF mustpo)=à THEN SOUND 1,1460,9,7:SOUND 3,1199,9, >NU 


b:musipoizi 
159% GOTO 1446 


1608 

1610 HARMAN 
1624 

163% c=-1 


1646 IF po=B THEN k=1 
1656 IF po=iè THEN k=2 


ié6i LOCATE 6,po:PEN Z:SOUND 1,506,6.9,6,84, 1: PRINT phri 


$CE)+" “FOR tezi TO Gb: NEXT te 

1674 LOCATE 6,po:FEN 1:FRINT phri$(k)+" " 
16Bÿ IF #015=15 THEN fois=0:G0T0 1446 
1698 c=INKEY (9) 

1706 FOR te=1 TO ZGG:NEXT te: fois=fo1s+i 
1716 IF c£-1 THEN 1736 

1726 GOTO 1634 


1716 SOUND 1,79.16,9:SOUND 3,84, 16.7: SOUND 4,54, 10,6:F0 : 


R te=i TO ZGW:NEÏT te 

1746 LOCATE 6,po:FEN Z:PRINT phrigiki+® 
1750 

1760 HAHAHANA#NHAHE DIRECTION 


1779 * 

1786 IF k=2 THEN GOTO 609 
1796 IF 1=1 THEN 3646 
1896 IF 1=2 THEN 4676 
1814 IF 1=3 THEN 3680 
1826 IF 1=4 THEN 2416 
1839 IF 1=5 THEN 259û 
1846 IF 1=6 THEN 2776 
1856 IF 1=7.THEN 1976 


18ëé IF 1=8 THEN 1886 

1876 

1886 ‘ HHHAHAAHARARRER QUITTER 
1899 


1904 LOCATE 3,S:FRINT SPACES (38): 


1919 LOCATE 18,5:PEN Z:FRINT CHR$(Z41+CHR$ (1 < PRINT CH HV 


R$ (295) +"ADIEU"+CHRS (254) 

1926 PRINT CHR$(24)+CHR$ (1): 

1934 a$=INKEYS:IF a$<>"" THEN 1936 

1944 a$=INFEYS:IF a$="" THEN 1944 

195% CALL à 

1968 ‘ 

1970 0 HAHHHHNHHHHHHHE RESULTATS 

1986 

1994 LOCATE 6,8:FRINT SPACES (15) 

2694 LOCATE 6,14:PRINT SFACES (13) 

2016 J=1 

2429 LOCATE 6,8:PEN 1:FRINT “JOURNEE “ 
2636 LOCATE 6,16:FEN 1:PRINT * ù 

2446 LOCATE 6,10:PAPER 3:PEN 1:PRINT DECS (7, "##"i 


265% a=INÉEY (4) :D=INKEY (2): c=INKEY (9): FOR tezi TO SiNE > 


XT te 


2064 IF NÜT a THEN j=3-151F 3=0 THEN j=1:607T0 2646 ELSE : 


2046 


2674 IF NOT b THEN j=jtl: IF j=39 THEN j=58: GOT 2646 E DR 


LSE 2944 

2686 IF NOT c THEN FAPER G:LOCATE o,8:FRINT SFACE# (26) : 
LOCATE 6,1: PRINT SPACES (30): GÛTO 2i6v 

2496 GÜTO 2456 

2166 LOCATE 19,8:PRINT JiCHR#(244i" JOURNEE" 

2116 WINDOW #3,4,16,11,20:FAFER #3,3:CLS #3 

2126 WINDON #3,25,37,11,20:FAFER #3.3:CLS #3 

2136 WINDCW #3,18,19,11,2G:PAPER #3, Z:CLS #5 

2146 WINDOW #3,22,27,11,20:PAPER #3,2:CLS #3 


2154 ORIGIN 6,0:PLOT 47.786,23: DRAMR 6,162: DRAMR 2697,G:0R 


AWR 6,-162:DRAWR -209,0 


2168 ORIGIN 6,6:PLOT 383,78,23:DRAWR 0,162: DRAWR 299,6:D : 


RAUR 4,-162:DRAWR 269,9 


2176 ORIGIN 6,6:PLOT 45,76, 1:DRANR 9,166: DRAWR 215,8:DR : 


AWR 0,-166:DRAWR -213,0 


218% ORIGIN 6,0:FLOT 181,76.1:DRAR 9,166: DRAWR 213,6:D 


RAHR 6,-166:DRAWR -213,0 


2196 ORIGIN 6,0:PLOT 271,78,2:DRAWR 0,162: DRAWR 33,4: DR 


AWR 4,-162::DRAWR -33,0 


2204 ORIGIN 6,6:FLOT 335,78,2:DRAUR 6,162: DRAR 35,8:DR 


AWR 9,-162::DRAUR -33,0 

2216 ORIGIN 9,6:PLOT 353,76, i:DRAWR 6,166: DRAWR 37,9:DR 

AUR 4,-166::DRAWR -37,0 

2226 ORIGIN 4,6:FLOT 269,76,1:DRAUR 9, 166: DRAHR 37.6:DR 

AUR 6,-166::DRAWR -37,6 

2236 FOR n=i TO 16 

22349 eb=eb+]i:adv=PEEK (35326+ (3-1: #26+ (eb-1)} 

2256 IF flagieb){:0 OR adv=6 OR adv:20 THEN n=n-i:G60T0 
2306 

2264 LOCATE 4,N+19:PAFER Z:PRINT equ1$(eb) 


2276 LOCATE 18,N+19:FAPER Z:PRINT DECS ((PEEK(33808+ (1-1 : 


)#26+(eb-1)),"##") 


2206 LOCATE 22,N+1G:PAFER Z:PRINT DEC$((PEEK(34540+(j-1 > 


:DG 


2DR 


}#26+(eb-1ii,"##" 
2294 LOCATE 38-LEN(equi$ladv}i,N+16:PAPER 3:PRINT equ1$ :20 
ladv):#lag(advi=1 

23606 IF eb‘24 THEN NEXT 

2316 IF n:1 THEN LOCATE 4,11:FAPER 3:FRINT "PAS DE * 
2326 IF n£i THEN LOCATE 25,13:PAPER 3:PRINT "RESULTATS" 


23534 IF ni THEN LOCATE 4,15:FAFER 3:PRINT "INSCRITS" 
2344 eb=b:FOR n=i TO 26:flag(n)=G:NEXT 

2356 a$=INÉEYS$:IF a$:;"" THEN 2750 

2366 a$=INKEYS$:IF a$="" THEN Z766 

2376 FAPER #3,0:WINDOW #3,17,18,8,23:CLS #7 

2380 FAPER 6:PEN Î 


<< 


2396 GOTG 666 

2496 

2410 0 HHHAHHHHHHHHHHE SAUVEGARDE 

2426 

2436 LOCATE 6,.8:FEN 1:FRINT “AFFUYER SUR ":FEN 1 
244% LOCATE 6,16:FEN Z:FRINT “UNE TOUCHE “PEN i 
2454 a$=INKEY#$: IF a$:;"" THEN 2456 


2466 a$=INKEY$:IF a$g="" THEN 2466 

2476 KI=INT (annee/ 1606) 

2486 KZ=INT((annee-K1#1004} /j46) 

249% E3=INT((annee-ki+10966-L24#1006) /16) 
2306 K4=INT ((annee-ki#1906-k2#100-Kk3#10) ) 


2916 K$=CHR$(k1+48) +CHR$ (kZ+48)+CHR$ (k3+48) +CHR$ (kd+dE) : 


2911 ‘ERA.6k$ 

2526 SAVE k$,b,30900,6144 

2939 LOCATE 6,8:PEN 1:PRINT “SAUVEGARDE  " 

2546 LOCATE 6,160:FEN Z:FRINT "TERMINÉE MIPEN 


2556 a$=INKEY#:IF a$<2"" THEN 2556 
2560 a$=INKEY#:IF a$="" THEN 2566 


Æ: 


2576 GÜTG 606 

2586 

2594  HH##H#AHHE  CHARGER 
2606 


2614 LOCATE 6,8:PEN i:PRINT “AFFUVYER SUR . 
2624 LOCATE 6,16:FEN Z:PRINT “UNE TOUCHE  “:FEN i 


2634 a$=INÉEYS: IF a$i;"" THEN 26356 

2646 a$=INÉEY#$:1IF a$="" THEN 2646 

2658 K1=INT (annee/1606) 

2666 kZ=INT((annee-ki*x1006) /164) 

2674 K3=INT((annee-ki#1006-k2#100) /16) 

268% K4=INT ((annee-ki*16099-k2#199-k3#16) ) 

2696 k$=CHRS (k1+48)+CHR$ (k2+48) +CHR$ (k3+480) +CHR$ (k4+48) 


2706 LOAD K$ 

2741 LOCATE 16,10: 

2716 LOCATE 6,8:FEN 1:PRINT “CHARGEMENT : 

2724 LOCATE 6,19:PEN 2:PRINT "TERMINE “PEN 1 


2736 a$=INKEYS#:IF a$<;"" THEN 2710 
2746 a$=INKEY#$:IF a$="" THEN 2746 
2756 GOTO 806 


?0T 
3VF 
28. 


»XX 
>FF 
»16 
>H 


:RH 
A1 
*EZ 
#HL 
?1b 


?XD 
LA 


: NU 


:UK 


AC 
+IM 
FF 
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EE 

2774  ######### FORME ACTUELLE 

2788 

2796 J=i:li=dico=ià 

2864 LOCATE 6,8:FEN 1:FRINT "JOURNEE : 
281% LOCATE 6,14:PEN 1:FRINT “ 

2829 LOCATE 6,14: FA4PER Z:FEN L:PRINT DECS( (1, °##") 


2826 a=INÉEY (G):b=INKEY (Zh:c=INKEY (9): FOR te=i TO SO:NE :6D 


XT te 


284ÿ IF NÜT a THEN j=3-12IF j=4 THEN j=1:G0T0 2626 ELSE : 


2820 


2850 IF NOT b THEN j=prisif 3=59 THEN j=38: GOT 2826 E DL 


LSE 282 


2864 IF NÜT c THEN PAPER G:LOCATE 6.B:PRINT SFACES (IG: :B7 


LOCATE 6,14:FRINT SPACES (36) :G0T0 2686 

287ù GOTO 2876 

2886 r=jirisr-4iif iii THEN rizi 

2894 LOCATE 13,B:FEN L:PRINT ri"--"r" JOURNEE" 
296% FÜR n=i TO 26 

2916 FOR j0=1 TD 5 

2920 a=PEER (300064 ((3-1r#20)-({o-1r#2ü- ni} 
2934 al=PEEK(3T80+ ( (j-1)#20}-(1j0-11#l6-in-1i)) 
2944 tot=tot+iax2i 

295% toti=toti+ai:IF al:24 THEN ai=26 

296% NEXT jo 

2974 PAFER G:LOCATE l1,c0:FEN 1:FRINT equi$ini:* 


2984 LOCATE li+li.co:FEN Z:PRINT DEC$iitot+toti."##iss > 


FEN 3:PRINT ‘/44* 

2996 co=co+i:iF co=26 THEN ji=ii+iB:co=1® 
3668 tot=ü:toti=é:NEXT n 

3410 a$=INKEYS:IF a$i:"" THEN 5618 

3024 a$=INFEYS: IF a$="" THEN 3426 

363% LOCATE 19,B8:FRINT SFACES (25: 

3446 WINDOW #3.4,38, 14,26 

2056 CLS #7 

266% GÜTO &4b 

3676 

2086 HHHHHHHHHHHHHE GRAPHIQUE 

3494 

3146 p=i 

3119 LOCATE 6,6:FRINT SFACES (15) 

7126 LOCATE 6,16:FRINT SFACES:15: 

3136 PAPER 3:FEN 1 

3146 LOCATE 6,8:FRINT " " 

3156 LOCATE 6,8:PRINT SPACES(LENtequi$ipdi)}) 
3166 LOCATE 6,8:FRINT equi$ipi 


iT 


3186 IF NÜT a THEN pd=p:p=p-l:[F p=6 THEN p=1:G0TD 3146 + 


ELSE 3156 


3196 IF NOT b THEN pd=p:p=p#1:1F p=2i THEN p=2&:60T0 31 


46 ELSE 3154 

3286 IF NOT c THEN GOTO 3224 

3216 GOTO 3176 

3226 LOCATE 6,8:PAFER G:PRINT SFACES (20) 
2236 LOCATE &6,16:PRINT SFACES (26) 


3246 LOCATE (46-LENlequi$(p}})\2.8: PAPER Z:PEN L:FRINT 


72 


3176 a=INKEY (G:b=INKEY (Ze c=INKEY (93: FOR te=i TD SOiNE : 


2YC 
>YD 


equi$ (pi 

3256 FAPER G:FEN 

Z266 FLOT 45,48,1:DRAW 586,48 
3276 FLOT 48,48:DRAW 46,268 
2286 FOR n=48 TO 586 STEF 14 
3296 IF n°748 THEN FLÜT n,46 


.3360 IF n°48 THEN FLOT n.44 


x & 4 
J 


16 NEXT 
26 FÜR n=48 TO 266 STEF if 


Lx] 


«2334 IF n£:48 THEN FLOT dé.n 
22346 IF n£:48 THEN FLOT 44,n 
23354 NEXT 

2166 FLOT 46,58: DRAN 36,58: DRAN 36,62: FLOT 44,58: DRAM 4 CF 


‘4,54 
3174 FLOT 62,44: DRAW 62,32:PLOT 60.28 *D4 
3184 PLOT 146,226: DRAWF 44,6:PLOT 166,226:DRAWR 6.49 :VE 
3596 PLOT 128,222:FLÛT 138,218: PLOT 1T6,224:PLOT 136,21 :2P 
ë . 
3406 PLOT 98,258:FLOT 96,256: FLOT 104,256:FLOT 14 XY 
3416 FLOT 86,266: DRAWR 0,-10:DRAWR 6,10: DRAWR 5,60: DRAWR :TZ 
8,-S:DRAUR -5,8 
3424 FLOT 86,245: DRAWR 5.6: DRAWR -2,6:DRAWR 9,-16 RC 
3436 PLOT 86,234: DRANR 5,6: DRAWR -5,4:DRAWR 4.-3:DRAUR :FD 
5,0: DRAUR 6,-7:DRAUR -5,0 
3444 PLOT 165,210: DRAUR 4,-8:DRAWR -2,-4:DRAWR -3,6:DRA :GL 
WF -1,2 
3456 PLOT 112,210: DRAUR 3,6: DRAWR 1,-Z2:DRAUR 6,-8: DRAWR :OY 
—1,-2:DRAWR -3,0:DRAWR -1,23:DRAWR 6,8: DRAWR 1,2 
3466 FLOT 122,216: DRAWR 9.-8:DRAWR 2,-4: DRAWR 3,0: DRAWR RE 
2,4:DRAUR 4,8: 
3476 FLOT 134,216: DRAWR 6,-12:DRAWR 6,6: DRAWR 3,6: DRAWR :&F 
1,2: DRAUR 0,2: DRAWR -1,2:DRAMR -3,9 
1484 DRAWR 9.-4:DRAWR 5,-E sub 
249% TÜL=6 45 
3546 FÜR n=1 TD 38 LU 
3514 a=PEEK(34000+ (N-1)#26+(P-1)) 21 
3524 tol=tol+a CE 
3576 PLOT 56+(n-1)#14,504+T0L+x7, 2: DRAWR 13.0 #EE 
2544 FÜR CE=56+TOL*2 TO 56 STEF -2 IF 
2556 FLOT 5+(n-1}#14,CE, 2+PEEK ((n-11#24+p-1+26766) :DRA FE 
WR 13,4 
2564 NEXT LF 
3574 NEXT LG 
1584 A$=INKEYS: IF A$<:"" THEN 1580 #AL 
3590 A$=INÉEYS:IF A$="" THEN 359% :1W 
3606 WINDOW #3.7,38,8.27 RL 
3619 CLS #3 LG 
3624 GOTO 868 FC 
3636 3YE 
3644 © HHHHHHHEHHHHHHE NOUVELLE JOURNEE 3VF 
365% ‘ >YG 
Job LÜCATE 6.8:FRINT SFACES (15) #ÀF 
367à LOCATE 6,16:PRINT SFACES (15) ?BC 
3686 J=i WE 
369ÿ LOCATE 6,8:PEN 1:FRINT “JOURNEE " 2MA 
3706 LOCATE 6,16:PEN 1:PRINT * : BH 
3714 LOCATE 6,160:PAPER 3:PEN 1:PRINT DECS (3, "#4" RG 


3729 a=INKEY(G):b=INKEY (Zi: c=INKEY (9): FOR te=1 TO SG:NE GC 


XT te 


37136 IF NOT a THEN j=35-1: IF j=6 THEN j=1:G0TO 1716 ELSE :E 


3716 

3744 IF NOT b THEN j=3+1: IF j=55 THEN 1718: 
LSE 3716 

3756 IF NOT c THEN FAFER G:LOCATE &6.8:FRINT SPACE (36): 
LOCATE 6,16:FRINT SPACES (30) :G0T0 3776 

3766 GOTO 3724 

3776 LOCATE 15,8:PRINT J:CHR#& (244; % JOURNEE" 
3786 WINDOW #3,4,i6,11,20:PAFER #I,Z:CLS #5 
3798 WINDOW #3,25,37,11,20:PAPER #35,3:CLS KT 
3866 WINDOW #3,18,19,11,26:PAPER #3, Z:CLS #5 
3819 WINDÜW #3,22,23, 11,20: PAFER #3,2:CL6 #3 
3826 ORIGIN 6,6:FLOT 47,78,3:DRAWR 6,162: DRAUR 
ANR 4,-162:DRAWR -269,0 

3836 ORIGIN 6,0:PLOT 283,78,3:DRAUR 4,162: DRAWR 
RAWR 9,-162:DRAWR -295,0 


3846 ORIGIN 6.6:PLOT 45,76, 1:DRAHR 6, Loë: DRAUR 213.4: DR 


ANR 6,-1606: DRAUR -213,6 
385% ORIGIN ÿ.6:FLOT 381,76,1:DRAWR 6, 166: DRAWR 213. 
RAWR 6,-166: DRAWR -213,0 


3866 ORIGIN 4,6:PLOT 271.78,2:DRAWR 4.162: DRAWR 33,4: DR : 


AR à,-162: :DRANR -33,0 
3876 ORIGIN 4,0: FLOT 3 
AMR 6,-162::DRAUR -33.0 
3886 ORIGIN à.6:PLOT 575,76. LE DRM à, 166: DRAUR 37 
AR 0,166: :DRAWR -37,0 

1896 ORIGIN 4.0:FPLOT 269,76, 1: DRAMR 9, 166: DRAWR 
AUR 6,16: : DRAWR -37. 0 

3906 vi=ii 

3919 p=iix1=4: x2=25 

3926 c=INKEY(9):IF NOT € THEN 3920 


_ 78,2: DRAMR 0. 162: DRAWR 


3919 PAFER 3:PEN 1:LOCATE x, vi: PRINT SFACES (LEN(equi$t > 


pd)i) 
3946 LOCATE x1,vY1:PRINT equi$(p} 


3956 a=INKEY (0) :b=INÉEY (2) :c=INKEY (9) :FOR te=i TO SO:NE : 


\T te 


3968 IF NOT a THEN pd=p:p=p-111F p=ù THEN p=l:GOTO 3556 ; 


ELSE 3930 


3974 IF NOT b THEN pd=p:p=p#i:iF p=£ii THEN p=26:G010 355 : 


36 ELSE 3936 

3986 IF NOT c THEN egi=p:p=6:G0T0 4066 

3996 GOTO 3954 

4008 x3=18:x4=23 

4616 but=ù 

4626 c=INKEY(9):1F NOT c THEN 4026 

4030 PAPER 2:PEN 1:LOCATE x3,v1:PRINT SFACES (2) 

4646 PAPER Z:PFEN 1:LOCATE x3,y1:PRINT DECS$ (but. "##") 


4954 a=INKEY (9) :b=INKEY (2): c=INKEY(9):FOR te=i TO 156: N : 


EXT te 
4666 IF NOT a THEN but=but-1:1F but=-i THEN but=@:GOTD 
4936 ELSE 4930 


4978 IF NOT b THEN but=but+1:1F but=160 THEN but=99:G0T } 


0 4970 ELSE 4039 | 

4686 IF NOT c THEN bul=but:but=6:G0TO 4166 
4999 GOTO 4446 

4196 c=INEY(9):IF NÜT c THEN 4164 

4119 PAPER Z:PFEN 1:LOCATE x4,vi:FRINT SPFACES (2) 


bOTO 3716 E : 


249,4: DR 


209,0:D 


Gi : 


ZI, Gi: DR : 


D: DR D: 


37,4:DR D 


4124 PAPER Z:FEN ÎiLOCATE xd, vi: FRINT DECSC'out, ‘##°: 
4136 a=INEEY (4 :D=INKEY (Sie c=INKREY (SI: FDR tel TD 136:N 
EXT te 

4146 IF NOT à THEN but=but-{:1F but=-| THEN put=u:60TD 
4119 ELSE 4116 

4156 IF NOT ü THEN but=but+]:1F out=1té THEN but=5S:GDT :& 
D 4116 ELSE 4116 


io IF NOT © THEN bui=put:but=6: 5070 d18ù 

4i7à GOTO 4126 

418% p=l:c=INÉEY(9:1F NÛT c THEN 4186 

4196 PAPER Z:PEN L1:LOCATE (3B-LEN‘equi$ (pd) ,vt: PRINT 
SFACES (LEN(equi$(pd}:: 


244 PAPER Z:FEN 1:LOCATE (IB-LEN(equig(pri1,.viiFRINT e : 


qui$ip} 
4214 a=INKEY (6 :D=INEEY (2 
EXT te 


4226 IF NÜT a THEN pd=p:p=p-i:1F p=4 THEN p=1:G070 4196 : 


ELSE 4196 
4236 IF NOT D THEN pd=p:p=p+!:[F p=£l THEN p= 
96 ELSE 4190 
4246 IF NOT c THEN egi=p:p=6:G0TD 4279 
4256 GOTO 4:66 
4:64 
4279 con=conti 
4206 LOCATE 6,22:FAFER Z:FEN L:FRINT “ICJonfirmer ou 

CAinnuier" 
429% d=INFEr 162) :e=IiNkEY (69) 

366 IF NOT E THEN con=con-1:e9i=tiequi=dipui=t:ibpui=til 
OCATE X1.Y1:FRINT SFACES (13) :LOCATE 42,.Y1:PRINT SFACE#: 
13::PAFER Z:LOCATE X3,Y1:FRINT SFACES (2): LOCATE x4,visF 
RINT SFACE#(2):PAFER Gi: LOCATE 6,22:FRINT SFACES (Zi: FAF 
ER 3:G60T0 3914 
4516 IF NOT d in GÜTO 4736 
4324 GOTO 429 
4336 MERE NE 1i+(j-11#28 
4749 adri=210440+ (egz-1}+(1-1)#20 
4254 adr3=16768+ (eqi-1)+(j-1)#20 
4366 adr4=18766+ (eg2-1)+(1-1}#26 

379 adr5=3152%+(eqi-1)+(j-1}#20 
4586 adré=31520+(eg2-1}+(j-11#20 
4:96 adr7=12286+(egi-1)+(3-1)#20 
4408 adr8=12280+ (eg2-1}+(j-1}#20 7 
4416 adr9=3:046+(egi-1)+(j-11#24 
4420 adri4=33640+ (eg2-1}1+(7-1)#20 
4436 adri1=11800+ (eagi-1)+(j-11420 
4449 adri2=32806+(eg2-1)+(1-1}#26 
4456 adri3=74566+ (egi-11+(j-11#26 
4464 adri4=345606+ (eg2-1)+(j-1}1#26 
4478 adri5=151244 (egi-1)+(j-1)#30 
4486 adrié=353244+(eg2-1}+(1-1)#26 
4496 POFE adri5,eqgi:PFOKE adrié,egi+26 
4569 POKE adr3.i:POKE adr4,i 


Journee 
journee 
gagne 
gagne 
perdu 
perdu 
nui 
nu] 
pour 
pour 
conr 
conr 


4516 IF bui:bu2 THEN FOKE adri.2:POKE adrz,6:POHE adr5, è 


1:POKE adré,&:POKE adr7,8::POKE adr6.i 
4526 IF bui‘bu2 THEN FOKE adri,6:POKE adr2,2: POKE adr5, 
9:POKE adré,i:POKE adr7,1: :POKE adr8,4 
4536 IF bui=bu? THEN FOÉE adri,1:POKE adr2,1:FOKE adr5, 


:C=INEEY (9): FÜR tezi TD lé : 


26:60T0 di Uk 


:4E 
EF 


G:PFOFE adré,G:POKE adr7.4::FOKE adrB.6:FOKE adr9,i:FÜKE 
adrià,i 

4546 FOKE adrii,bul:FOKE adri2,bu? 

4556 FOKE adr13,buZ:POKE adri4.bui 


456% LOCATE 6,22:FAPER 3:PRINT "EUIn autre ou EM PF. 


Jenu 
4576 y=INKEY (38) :z=INKEY (42) 


4586 IF NOT y THEN WINDOW #3,7,38,8, 23: PAPER #SOiCLS # 


7 
2 


4596 ÏF NÜT ÿ THEN v=-i:con=v:FAFER G:PEN 1:60T0 ouw 


âéé IF NOT z THEN z=-{:1F con=ié THEN con=ü:WINDOW #3, > 


3,38,8,23: PAPER #3, G:CLS #J:FEN 1:PAPER 6:6070 oÿÿ ELS 
E LOCATE 4,22: PAPER G: PRINT SPACES (35: vi=vi+i:G0TG 35 
19 


4616 GOTO 4570 

4620 

462 HHARHAANENREREE CLASSEMENT 
dodo 


465% FOR n=1 TD 26 


débé tptin)=b:ter (nid: tpcini=b:qoini=it: jolni=b:qa(inr=é à 


:peltn'=dinuini=à 

4674 NEXT 

468% c=iNKEY(9):1F NOT c THEN 4686 

4698 LOCATE 6,8:PRINT SPACES (15) 

4704 LOCATE &6,19:PRINT SFACES (15: 

4716 J=i 

4726 LOCATE 6,8:FEN 1:FRINT "JOURNEE 

4716 LOCATE 6,14:FEN 1:FRINT " “ 

4746 LOCATE 6,10:PAPER Z:FEN L:PRINT DECS( (7, “##") 


475% a=INKEY (63:D=INÉEY (23 :Cc=INKEY (9): FOR te=i TO Sû:NE : 


\T te 


4764 IF NÜT a THEN j=j-1:IF j=0 THEN J={:G0T0 4749 ELS BE 


E 4740 


4770 IF NOT E THEN j=j+#l:1F j=39 THEN 1=28:6010 4746 E : 


LSE 4740 


4786 IF NOT © THEN FAFER GiLOCATE 6,8: PRINT SFACES (3ü): :E 


LOCATE 6,10:PRINT SFACES (30): GOTD 4869 
479% GOTO 475û 

4806 LOCATE 16,13::PEN Z:FRINT "FATIENTEZ* 
4816 FÜR n=1 TO 26 

4026 FOR jo=i TO j 

4836 ai=PEEK (360064 (j0-1)#+20+(n-1) i 
4846 bi=FEEK (338064 (jo-1}1#26+(n-1): 
4856 ci=FEEK(34588+ (j0o-1i#20+(n-1)) 
4866 di=PEEK(36760+(j0o-1)*#26+(n-1)} 
4876 el=FEEK (315204 (j0-1}#26+(n-1)) 
4886 +i=PEEK(32284+ (j0-1}#26+(n-1)) 
4896 gi=PEEK(33046+ (jo-1)#20+(n-1) ) 
4966 tptin)=tptini+al 

4918 tprin)=tpr(n)+bl 

4928 tpc(n)=tpc(n)+ci 

4936 jo(n)=jo(n)+di 

4949 ga(ni=ga(ni+ei 

4958 pe(n)=pe(n)+#i 

4968 nutn)=nu(n)+qi 

4974 NEXT 

4988 go(ni=tpr(n)-tpc{n) 

4996 NEXT n 
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5606 FOR n=i TD 26 #LF 
9916 classiNi=tptini+#106006+ac ini #168èrtpr (ni ND 
5926 NEXT #9 
9636 ci=i *DD 


3049 r=MAliclass(i} ,class(i},ciass(i3r.class(d;,ciass(5} ‘EL 
.ciassté),ciass(7).class(8) ,ciass(9),.ciass(it) ,ciasstii 
1,ciass{ii},ciass(i3),class(i4),ciass(i5).class(iéi,cia 
55117: ,class(i8),ciass(i9).classiz6;) 

565% FOR n=i T0 26 #LL 
S66% IF r=ciassin) THEN plicli=nicl=cl+iiclass(nr=-ig és ;VE 
in=i:GOTO 5686 


5976 NEXT *LD 
5986 IF c1=21 THEN 5106 ELSE 5498 Ft 
5499 GOTD 5446 :NA 
5198 CLS:c1=û :FA 


9114 LOCATE 16,1:FAPER Z:FEN G:PRINT CHR$ (295): DES, :JV 
“rs CHRS (244) : © JOURNEE “CHRS (254: : FAPER 4 
912 LOCATE 6,1:FAFER W:FEN Z:FRINT CHRKS 24912: FHINT LH ;0D 


R$(22)+CHR$ (1): 

5136 LOCATE 6,1:FAFER O:FEN Î:FRINT CHR$ 256): #NT 
9149 LOCATE 25,1:FAPER U:PEN Z:FRINT CHR$ (249) 2NG 
9159 LOCATE 35,1:FAPER O:PEN L:PRINT CHR (250) 2: PRINT © VF 
HR# (22) +CHR$ (D) : 

9166 FRINT:PRINT : PRINT STRINGS (46, CHR# (216) ) 2: PRINT :IM 
517% GOSUB 5360 2kk 
9186 tptidi=-9999990: tpc(di=-0609900: tpr(@)z-599909%:n1 :UY 
Gi={:FOR n=1 TO 26:nf(n}=niNEXT n 

9196 FOR n=i TÙ 26 #LR 


9206 v=plini:iF tptivi=tptiplin-ii AND tprivi=tpriplin VE 
-13} AND tpcivi=tpciplin-1}} THEN IF n:1 THEN nlini=nit 
n-l):#l=i 

9214 PEN Z:LOCATE 2,4+4n:1iF fi=6 THEN PRINT DEC#(iniin!. :EU 


“##") ELSE PRINT " “:f1=ÿ 

322% FEN 1:LOCATE 5,4+#n: PRINT equigivi 2FY 
3234 PEN ZS:LOCATE 18,4+n: PRINT DECS((tptivi,"##") RG 
J246 FEN 2:LOCATE 21,4+n: PRINT DECS((tpr (vi, “###") 216 
3254 LOCATE 25,4+n:FRINT DECS((tpc(v),“###") Li 
926% FEN 1:LOCATE 29,4+n:PRINT DEC${(qatvi,"##") :QU 
3274 LOCATE 32,4+n: PRINT DEC$((nu(v),"##") >JH 
928% LOCATE 35,4+#n:FRINT DEC#((peiv), "##") 3JX 
9294 LOCATE 38,4+n: PRINT DEC$((jovi,"##"): 2KH 
9306 NEXT #Kk 
9314 PEN 1:LOCATE 17,4: PRINT "Fts':LOCATE 21,4:PRINT “ DE 


Pp. 
328 LOCATE 25,4:PRINT " ©. ":LOCATE 29,4:FRINT "G.":LOC :KE 
ATE 32,4: PRINT °N, “:LOCATE 35,4:PRINT "PF, '":LOCATE 36,4: 
PRINT "J," 


339 a$=INKEYS$:IF a$<:"" THEN 533ÿ #AÀ 
9349 a$=INKEY#$:IF a$="" THEN 5340 >k 
9336 CLS:G0TD 536 #LH 


5366 :PLOT 6,8,1:DRAUR 9,356: DRANR 628,6: DRAWR 0,-356:D :MG 
RAWR -638,6 

9379 FLOT 16,8:DRAWR 9,350:PLOT 344,8: DRAUR 6,354: DRAWR : UN 
2,9: DRAMR 0,-356 

9589 PLOT 368,8: DRAWR 9,356:FLOT 372,6: DRAUR 0,354 TU 
5390 FLÜT 456,8: DRAWR 6,350:PLOT 484,8: DRAWR 6,356 èTJ 
9498 FLOT 532,8: DRAMR 0,350:FLOT 586,8: DRAWR 9,358 TU 
9419 RETURN 


OUVERT du 


mardi au samedi 
de 10h00 à 13h30 
et de 14h30 à 19h. 


82-84, Bd des Batignolles 75017 Paris 


GRATUIT 


1 IMPRIMANTE STAR (valeur 2990 F) 
1 CORDON IMPRIMANTE 
1 LISTING 1000 FEUILLES 


1 INTEGRALE PC, comprenant : 

- Traitement de texte EVOLUTION SUNSET 

- Tableur graphique CALCOMAT 

- Base de données rédactionnelles 
SUPERBASE 

- Pack de 4 jeux 

- 10 disquettes 51/4 


POUR L'ACHAT 
D'UN 


AMSTRAD PC 1512 SD MONOCHROME 5 920,00 F TTC 
ou AMSTRAD PC 1512 SD COULEUR 8170,00 F TTC 
ou AMSTRAD PC 1512 DD MONOCHROME 7 450,00 F TTC 
ou AMSTRAD PC 1512 DD COULEUR - 9700,00 F TTC 
ou AMSTRAD PC 1512 HD 

20 MEGA MONOCHROME 
ou AMSTRAD PC 1512 HD 

20 MEGA COULEUR 12 915,00 F TTC 


Offre valable du 14/09/87 au 31/12/87 en fonction des stocks disponibles 


PROMOTION 
SPECIALE 


du 09/09/87 au 31/12/87* Prix public TTC 


10 662,00 F TTC 


10 DISQUETTES 5"1/4 99867  4900F 
AMDRUM 396807 299,00F 
MULTIFACE 2 49980 F 379,00 F | 
JOYSTICK 125+ 90287  6900F. 
JOYSTICK MACH 1+ 176607 129,00 F 
4 STYLOS IMPRIMANTE MCP 40 _3000r 22,00 F 


* Dans la limite des stocks disponibles 


ie) 


Métro : 


Pt] VILLIERS 


ET 
Tél. 42.93.24.58 


IMPRIMANTES 
STAR DELTA 10 


1290,00 F TTC 


STAR DELTA 15 ON 1490,00 F TTC 
STAR RADIX 10 RO oNON! 1990.00 F TTC 
STAR RADIX 101 P \ALE 2290.00 F TTC 
OKI 83 À SPEC 1290,00 F TTC 
EP 80 + 1490.00 F TTC 
LECTEURS DE DISQUETTES 

ODI 1 1990.00 F TTC 
FD 1 1590.00 F TTC 


FD 2 (pour PCW 8256) 
JASMIN 51/4 AM 5d+ 


CORDON DE RACCORDEMENT 


EXTENSION MEMOIRE DK'TRONIC 


64K - 464/664 

256K - 464/664 

256K - 6128 

256K - PCW 

HORLOGE EN TEMPS REEL-PCW 

INTERFACE PROGRAMMABLE POUR JOYSTICK 
AVEC SYNTHETISEUR DE SON-PCW 
INTERFACE PROGRAMMABLE POUR JOYSTICK- 
PCW 


DIVERS 


SCANNER DART 

CRAYON OPTIQUE DART 

SYNTHETISEUR VOCAL TECHNIMUSIQUE - K7 
SYNTHETISEUR VOCAL TECHNIMUSQUE - DKT 
DOUBLEUR DE JOYSTICK 

ADAPTATEUR PERITEL MP 2 

INTERFACE RS 232 CPC 

INTERFACE RS 232 PCW 

LECTEUR ENREGISTREUR DE K7 

TURBO COPI III 

COFFRET TELEMATIQUE KENTEL 

DISCOLOGY V.3 

ELECTRIC LANTERN SHOW 

SOURIS AMX 

TUNER TV 

ANTENNE TV 


1777,00 F TTC 
1699,00 F TTC 


150,00 F TTC 


396,00 F TTC 
891,00 F TTC 
891,00 F TTC 
235,00 F TTC 
470,00 F TTC 


448,00 F TTC 
235,00 F TTC 


790,00 F TTC 
390,00 F TTC 
495,00 F TTC 
530,00 F TTC 

___ 90,90 F TTC 
450,00 F TTC 
590,00 F TTC 

___ 690,00 F TTC 
295,00 F TTC 

- 375,00 F TTC 

_ 380,00 F TTC 
___ 350,00 F TTC 
7 195,00 F TTC 
__ 690,00 F TTC 
1390.00 F TTC 

- 390,00 F TTC 


© NOUS SERONS AU FESTIVAL DE LA MICRO 
Ltd D'AUSTERLITZ du 9 au 11 octobre 1987 de 10hà20h 


et CORDONS. BOITES DE RANGEMENT, LISTING, RUBAN ENCREUR, LIBRAIRIE, ETC... 


BON DE COMMANDE a RETOURNER A : MICRO PROGRAMMES 5 - 82-84, ba des Batignolles - 75017 PARIS 


i 

D, L … 
Adresse : = . 
Code Postal : | Ville : 

| 


Port en sus : accessoires — 40 F. Imprimantes — 120 F 


__ Prénom : 


Tél. : 


ï 


Fe AT 


TCHERNMISLAND 


Plus que quelques (!) lignes de program- 
mes et Tchernmisland vous ouvrira les 
bras. Rappelons que la première partie du 
jeu se trouve dans le numéro précédent de 
CPC, ainsi d’ailleurs que le mode d'emploi. 
Tapez et sauvez le listing ‘’CHARGEUR P 
2''. Après un ‘’RUN’’, faites SAVE ‘‘P 
2'',b,30000,7068. II ne reste plus qu’à 
entrer le listing BASIC. Le démarrage s’ef- 
fectue par RUN ‘‘'TCHERN''. 


Olivier GUTIERREZ 


CHARGEUR DE P 2 
LISTING 4 


19 A=2900G:F=T 706: LE OGEMHILE ASF: FOR AA TO B+IS:READ Chirz 
VAL ER CE): 6EG+K+695526*(5+:31767): IF AL=F THEN POKE 4,k 


24 NEXT:READ D$:T=VAL("E"4DS):IF T<:S THEN PRINT CHR#(TIs"Erre 
ur ligne“;L:END ELSE L=L+5:WEND 

160 DATA 80,FF,884,F7,80,EF,80,E7,84,DF,80,07.8û,0F,80.07,0B15 
145 DATA 39,FF,10,F7,39,EF,230,E7,236,DF,30,07,174,CF,236,C7,13B4 
119 DATA EG,FE,EN,F6,EU,EE,EM,E0,E9,DE,EU, Dé, EG,CE, Eu, Ce, 214 
115 DATA 90,FE,96,F6,90,EE,90,E6, 96, DE, 90,06, 90, CE, 906, C6, 2054 
129 DATA 49,FE,40,F6,46,FE,40,E6,40,DE,46,D6,dû,CE,46,C6, 60% 
125 DATA F4,FD,F6,F5,F6,ED,FO,E5,F9, DD,F6,D5,F4,CD,F4, CS, 446 
130 DATA 46,FD,A0,F5, A4, ED, AG,ES, 46, DD, AG, DS, Ad, CD, AG, C5, 5ûFS 
33 DATA 54,FD,59,F5,56,ED,56,E5,56, DD, 50,D5,56,CD,56, C5, 5478 
146 DATA 96,FD,08,F5,00,ED,96,E5,00, DD, 06, 05,84, CD, 66,05, 6180 
145 DATA B4,FC,E9,F4,B&,EC, BG,E4,B6, DC, B6,D4, Bb, CC, E9, C4, 8E0û 
154 DATA 66,FC,66,F4,86,EC, 64,4, üù, DC, 66, D4, 68, CC, 66, C4, 7860 
155 DATA 19,FC,10,F4,14,EC, 10,E4, 10, DC, 10,D4,16,CC.10,C4,7F8û 
164 DATA Cô,FE,Cÿ,F3,C6,EE,CG,ET, C9, DE, CO, D3,C0,CB,Ca,C3,BC7B 
165 DATA 74,FB,70,F3,70,EE, 74,3, 70,DE,70,D7,70,CE,76,C3,98F0 
178 DATA 26,FE,20,F3,20,68,20,E7, 26, DE, 26,03, 24,CE, 26, CT, 9EES 
175 DATA DO,FA,D6,F2,D6,EA,D6,E2, Dé, DA, D6, D2, 06, CA, D6, CZ, ACSB 
188 DATA 86,FA,86,F2,86,EA,80,E2,86, DA, 86,D2,80,CA,89,C2,E748 
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185 DATA 39,FA,29,F2,20,EA,39,E2,230,D4, 26, 02,10, CA, 38, C2, EBFEB 
194 DATA Eù.F9,E4,F1,E4,E9,E4,E1,.E4,D9,E6,D1.E,09,24, C1, CDAG 
195 DATA 99,F9,60,F1,90,E9,99,E1,90,109,984,D1,94,09,96,Ci,D968 
206 DATA 46,F9,46,F1,4û,E9,46,E1,40,09,44,D1,46,C9,46,C1,E1Fa 
245 DATA FO,FS,F4,F0,FG,E8,F4,E0,F4,D8,F4,D00,F0,CE,FG, CA, Fat 
216 DATA AG,FB,A0,FO,AG,ES, AU, EN, A6, DB, A6, Du, A6,CB, AG, Ca, FCTG 
215 DATA 56,F8,50,F0,50,E8,90,E6,50, D8,56,Dû,50,C6,56, C6, 0596 
220 DATA 60,F8,00,F4,00,E8,006,Eû,00,D8,66,D0,00,C8, 46, C4, 4074 
225 DATA F4,F4,F0,F0,F0,F0, FO, ET, F3, FF, FFC, F3,FF,FF, CF, 1B6i 
236 DATA F3,FF,FF,CF,F3,FF.FF,CF,87,0F,0F, 6, 6F,0F,0F,@F, 2IDi 
235 DATA Ei,1F,FC,F6,C6,00,00,30,C0,00,00,70,F4,0F,FF,FA,2BBE 
24ù DATA E1,1F,FC,FO,C4,00,00,270,C0,06,00,36,F4,0F,FF,F9,232345 
245 DATA 06,70,00.00,06,F0,80,06, 00,096, 46,60, 00,70,B0,06,3775 
250 DATA 60,F7,F8,00,87,0F,FC,00,40,00,70,00,83,0F,F6,09, 23018 
255 DATA 66,F7,F0,00,00,F7,E6,00,06,F4,86,06,20,F6,F4, CG, 4536 
266 DATA 71,FF,FF.EB,EZ, BG, 4û,E4,22,46,96,44,11,FF,FF,B8,4FI& 
265 DATA 86,40,E4,00,06,19,F6,00, 00,50, 16,00, 00,D6,E0, 0ù,5324 
276 DATA 66,F1,FE,00,00,F3,0F,1C,00,E3,06,20,00,F3,09F, 1C, 584€ 
275 DATA 06,F6,FE,00,00,76,FE, 00,00, 14,F64,40,34,F6,F6,C0,5F7A 


280 DATA 71,FF,FF,EB,E2, B0, 60,E4, 22,96, 20, 44,11,FF,FF, BB, 6954 
285 DATA 00,73,EE,00,71,CF,3F,EE,87,7F,EF,3F,F7,EC,73,FF, 72AB 
290 DATA 8F,6C,63,3F,FF,AA,55,FF,CF,AA,55,3F, 77,88, DD, EE, 7C4F 
295 DATA 47,89,19,2€, 77, AB, SD,EE, 21,33, CC, 84, 21,91, 08, 84,8225 
300 DATA 21,00,00,84,61,08, 10,86,73,08,10,CE,F7,8C, 31,EF, 8705 
305 DATA 00,00, 00,00, 00,00, 00, 00, 00, 73,EE,00,71,CF,3F,EE, BE93 
310 DATA 87,7F,EF,2F,F7,E0, 73,FF,8F,6C, 63, 3F,FF, A, 55,FF, 9586 
315 DATA CF,AA,55, 3F, 77, BB, DD,EE, 47,89, 19, 2€, 77, AB, 5D, EE, 9E44 
320 DATA 21,33,CC,84,21,01,08,84,73,08,10,CE,F7,8C, 31,EF, A492 
325 DATA 00,00, 00, 09,00, 70,00, 00, 00, FO, 80,00, 10, 30, 90, 09, A742 
330 DATA 19,70, A0,00,00,B7,E0, 00, 09, 1F,E4, 00, 61, 3F,FB, 00, AC30 
335 DATA 83, 7B,F8,00, 43, 73,E8,00, 80, 31,EC, 09, 30, B1,FO, 00, B332 
340 DATA 51,F8,F7, 86,82, 74, AB, CB, 54,91,50,44,33,FF,FF, 88, BCEA 
345 DATA 00, 00,00, 00,00, 10, C0, 00, 00, 30,0, 00, 10, 3,95, 00, BFbA 
350 DATA 09,80, D0,00,00,F1, AC, 09, 00,F1,0E,00, 10,F3, BF, 00, C518 
355 DATA 19,F3,CB, 28,00,F3,C9, 48, 09,F7,80, 29, 10,F1,B0, 80, CCDA 
360 DATA 31,FC,F3, 40,62, B2,D4,A8,54,51,30,44,33,FF,FF, 88, D59C 
365 DATA 3F,20,01,00,00,00,3F, 20, 01,00, 00,00, 3F, 20,01, 09, DEC 
370 DATA 09,00,3F, 20,01, 00,00, 00,3F, 20,01, 00, Où, 09, 3F, 20, D7DE 
375 DATA 01,00,00,00,3F, 20,01, 00, 00,09, 3F, 20,01, 00, 09, 00, DB9C 
380 DATA 3F,20,01,00,00,00,3F, 20, 01,00, 00, 00,3F, 20, 01,00, D9BC 
385 DATA 00,00, 3F,20,01,00, 00, 00, 00,00,33,33, 22, 11,22, 11,DAEB 
390 DATA 22,11,22,11,22,11,33,33,00,00, 00, 11,00, 11,00, 11,DC1A 
395 DATA 00,11,00,11,00, 11,00, 11,00,00,33,33,00, 11,00, 11,DCE6 
400 DATA 33,33, 22,00, 22,00, 33,33, 00,00, 33,33, 00, 11,09, 11, DE7E 
495 DATA 09,33,00, 11,00, 11,33,33,00,00,22, 11,22, 11,22, 11,DFD2 
410 DATA 33,33,00,11,09, 11,00, 11,00,00,33,33, 22, 06,22, 00,E115 
415 DATA 33,33,00,11,00,11,33,33, 00,00, 33,33, 22, 00, 22, 00,E2AD 
420 DATA 33,33,22,11,22,11,33,33,00,00, 33,33, 00, 11,00, 11,E467 
425 DATA 00,11,00, 11,00, 11,00,11,00,00,33,33, 22, 11,22, 11,577 
430 DATA 33,33,22,11,22, 11,33, 33,00, 00,33,33,22,11,22, 11,E775 
435 DATA 33,33,00,11,00,11,33,33,06,9F,26,FF,FF,FF,FF, FC, EE26 
440 DATA F9,F0,F3,FB,FD,FO,F1,E9, 1E,87,79,E9,D2,84,79,E9,FASA 
445 DATA D2,B4,79,E9, 96,45, 79,E9,96,A5,79,E9,96, A5, 79,E9,0559 
450 DATA 1E,87,79,FC,F0,FO,F3,FF,FF,FF,FF,00,97,11,FF,FF, 10E8 
455 DATA FF,FF,FC,FO,F0,F3,FB,F0,F0,F1,E9, 1E,E1, 79,E9, D2, 1E9A 
460 DATA C3,79,E9,D2,E1,79,E9,96,E1,79,E9,96,E1,79,E9, 96, 2AÎC 
465 DATA C3,79,E9,1E,C3,79,FC,FO,F0,F3,FF,FF, FF, FF, OA, 87, 3627 
470 DATA 10,FF,FF,FF,FF,FC,FO,FO,F3,FB,FO,F0,F1,E9, LE, 87,4359 
475 DATA 79,9, D2,B4,79,E9,D2,F0, 79,69, 96,87, 79,E9,96, 96, 4E72 
480 DATA F1,E9,96,96,79,E9,1E,87,79,FC,F0,F0,F3,FF,FF,FF, SAC4 
485 DATA FF,04,9F,18,FF,FF,FF,FF, FC, FO,F0,F3,FB,FO,FO,F1,6812 
490 DATA E9, 1E,87,F1,E9,D2,A5,F1,E9,D2,E1,F1,E9,96,C3, 79, 742A 
495 DATA E9,96,F4,79,E9,96,96,79,E9, 1E,87,79,FC,FO,F0,F3,7F76 
500 DATA FF,FF,FF,FF,06,9F,3C,FF,FF,FF,FF, FC, FO,FO,F3,FE, 8D16 
505 DATA F0,F0,F1,E9, 1E,87,79,E9, D2,B4,79,E9,D2, B4,79,E9, 98A7 
510 DATA 9%6,B4,79,E9,96,87,3D,E9, 96,87, 79,E9, 1E,FO,79,FC, A298 
515 DATA F,FO,F3,FF,FF,FF,FF,02,87,06,FF,FF,FF,FF, FC, FÜ, BÔGE 
520 DATA FO,F3,F8,F0,F0,F1,E9, 1E,87,79,E9,D2,B4,F1,E9, D2, BCDC 
525 DATA 87,79,E9,96,E1,79,E9,96,E1,79,E9,96,A5,79,E9, LE, C732 
530 DATA 87,79,FC,F0,FO,F3,FF,FF,FF,FF,01,97,3D,FF,FF,FF, DSCF 
535 DATA FF,FC,FO,F0,F3,FB,FO,FO,F1,E9, 1E,87,79,E9,D2, B4,EGDC 
540 DATA 79,E9,D2,B4,F1,E9,96, 87, 79,69, 96,5, 79,E9, 96, A5,EBFS 
545 DATA 79,E9,1E,87,79,FC,FO,FO,F3,FF,FF,FF,FF, 04,97, 44,F71F 
550 DATA FF,FF,FF,FF,FC,FO,FO,F3,F8,F0,F0,F1,E9, 1E, 87, 79,04BA 
555 DATA E9,D2,B4,79,E9, 2, F0, 79,E9,96,E1,79,E9,96,E1, 79, 1078 
560 DATA E9,96,C3,79,E9, 1E,C3,79,FC,F0,F0,F3,FF,FF,FF,FF, 1D41 
565 DATA 02,8F,3B,FF,FF,FF,FF,FC,FO,F0,F3,FB,F,FO,F1,E9, 2ABA 


570 DATA 1E,C3,79,E9,D2,D2,79,E9, D2,D2, 79,9, 96,87, 79,E9, 3558 
575 DATA 96,5, 79,E9,96,A5,79,E9, 1E,87,79,FC,F0,F0,F3,FF,497E 
580 DATA FF,FF,FF,00,77,2D,FF,FF,FF,FF, FC, F0,F0,F3,FB,F0, 4DD2 
585 DATA FÔ,F1,E9,1E,87,79,E9,D2,B4,79,E9,D2,B4,79,E9, 96,5909 
590 DATA 87,79,E9,96,E1,79,E9,96,C3,79,E9, 1E,C3, 79,FC, FO, 63CC 
595 DATA F0,F3,FF,FF,FF,FF,08,87,37,FF,FF,FF,FF,FC, FO, FO, 7179 
490 DATA F3,F8,F0,F0,F1,FB,96,87,79,F8, 1E,B4,79,FE, 96, E4, 7D48 
495 DATA 79,F8,96,45,79,F8,96,A5, 79,FB, 1E, A5, 79,FB, 1E. 87,B6EA 
biô DATA 79,FC,FO,FO,F3,FF,FF,FF,FF,05,8F,40,FF,FF,FF, FF, Q3FE 
615 DATA FC,FO,FO,F3,F8,F0,F0,F1,FB,96,E1,79,FB, 1E,C3, 79, ADD 
&20 DATA F8,96,E1,79,F8,96,E1,79,F8, 96,E1,79,F8, 1E, C3, 79, ABDA 
625 DATA FB,1E,C3,79,FC,F0,FO,F3,FF,FF,FF,FF,01,87,18,FF,B7Cé 
436 DATA FF,FF,FF, FC, FO, FÔ,F3,F8,FO,FO,F1,FE,96,87,79,F8,CSEI 
435 DATA 1E,84,79,F8,96,F0,79,F8,96,87,79,F8, 96, 96,F1,FB,DÔPE 
440 DATA 1E,96,79,F8,1E,87,79,FC,FÔ,FO,F3,FF,FF,FF,FF, 09, DBDS 
645 DATA EF, 2C,FF,FF, FF, FF, FC, FO, FO,F3,FB,F0,F0,F1,FE, 96,E9E2 
650 DATA 87,F1,F8,1E,A5,F1,FB, 6,E1,F1,F8, 96, C3, 79,F8, 96,FSBE 
655 DATA F0,79,F8,1E,96,79,F8, 1E,87,79,FC,FO,F0,F3,FF, FF, OFF 
bb DATA FF,FF,07,87,27,FF,FF,FF,FF, FC, FO, F0,F3,F8, FO, FO, DEBS 
45 DATA F1,FB,96,87,79,FB, 1E,B4,79,F8,96,84,79,F8, 94, B4, 1944 
b7ô DATA 79,F8,96,87,3D,FB, 1E,87,79,FB, 1E, F0, 79,FC, FÜ, FO, 2386 
875 DATA F3,FF,FF,FF,FF,03,87,21,FF,FF, FF, FF, FC, FO,F0,F3,3115 
&8é DATA FB,F0,F0,F1,F8,94,87,79,F8, 1E,B4,F1,FE,96,87,79,2CE5 
685 DATA FB,96,E1,79,F8,96,E1,79,F8, 1E,A5,79,F8, 1E,87, 79,46CF 
496 DATA FC,FO,F0,F3,FF,FF,FF, FF, OA, 8F,34,FF,FF,FF,FF, FC, 545F 
495 DATA FO, F0,F3,F8,FO,FO,F1,FB,96,87,79,FB, 1E,B4,79,FB, bC4 
760 DATA 96,B4,F1,F8,96,87,79,F8, 96,A5,79,F8, 1E, A5, 79,FE, 6B65 
785 DATA 1E,87,79,FC,FO,F0,F3,FF,FF,FF,FF, 0,87, 26,FF,FF, 7734 
710 DATA FF,FF,FC,FO,F0,F3,F8,F0,F0,F1,FB, 96,87, 79,F8, LE, B46E 
715 DATA B4,79,F8,96,F0,79,F8,96,E1,79,F8,96,E1,79,F8, 1E, BF70 
720 DATA C3,79,FB,1E, C3, 79,FC,FO,FO,F3,FF,FF,FF,FF, 05, 87, 9BED 
725 DATA 04,FF,FF,FF,FF,FC,F,FO,F3,FB,FO,F4,F1,FB, 96, C3, A976 
736 DATA 79,F8, 1E,D2,79,F8,96, D2, 79,F8,96,87,79,FB, 96, A5, E3EA 
735 DATA 79,F8,1E,45,79,F8, 1E,87,79,FC,FÜ,F0,F3,FF,FF,FF,BF79 
740 DATA FF,07,7F,0E,FF,FF,FF,FF,FC,FO,FO,F3,FB,FÜ, FO, F1, CCAË 
745 DATA F8,96,87,79,F8, 1E,B4,79,F8, 94, B4,79,FE, 96,87, 79, D6BA 
750 DATA F8,96,E1,79,FB,1E,C7,79,F8, 1E,C3,79,FC,FO,FO,F3,E215 
755 DATA FF,FF,FF,FF,09,87,19,FF,FF,FF,FF, FC, FO, FÜ,F3,FB,EFAD 
76 DATA F0,F0,F1,E9, 1E,87,79,E9,D2,B4,79,F8, D2,B4,79,E9,FB4D 
765 DATA 1E,45,79,E9,78,A5, 79,E9, SA, A5, 79,69, 1E,87,79,FC,046C 
778 DATA F6,F6,F3,FF,FF,FF,FF,03,9F,2A,FF,FF,FF,FF, FC, FO, L1EF 
775 DATA F6,F3,F8,F0,F0,F1,E9, 1E,E1,79,E9,D2,C3, 79,F8, D2, 1EBD 
786 DATA E1,79,E9,1E,E1,79,E9,78,E1,79,E9, SA, C3, 79,9, LE, 28B9 
785 DATA C3,79,FC,FO,FO,F3,FF,FF,FF,FF,08,67,0C,FF,FF,FF, 2538 
790 DATA FF,FC,F0,FO,F3,FB,FO,FO,F1,E9, 1E,87,79,E9, D2,B4, 4245 
795 DATA 79,F8,D2,F0,79,E9, 1E,87,79,E9,78,96,F1,E9,5A, 96, 4CE9 
804 DATA 79,E9,1E,87,79,FC, FO, FO,F3,FF,FF,FF,FF,OB, BF, 30, 57DA 
805 DATA FF,FF,FF,FF, FC, FO, FO,F3,FB,FO,FO,F1,E9, 1E,87,F1,65ED 
8iè DATA E9,D2,A5,F1,F8,D2,E1,F1,E9, 1E,C3, 79,E9,78,F6,79,71E7 
815 DATA E9,5A,96,79,E9, 1E,87,79,FC,F0,F0,F3,FF,FF,FF, FF, 7EDB 
826 DATA o6,7F,11,FF.FFOFFQFF,FC,FO,FOF3SFE, FO, FO, F1,E9, BRIE 
825 DATA 1E,87,79,E9,D2,B4,79,F8, D2,B4,79,E9, 1E,B4,79,E9,9528 
830 DATA 78,87,2D,E9,5A,87,79,E9, 1E,FO,79,FC,FO,FO,F3,FF, 9FF5 
835 DATA FF,FF,FF,FF,00,00, 00, 87, 0F, DC, 09, 0, 00, 00,00, 19, A4AT 
840 DATA 08,91,06, 00,00, 00, 09, 00, 01, 00, 01, Gb, 0, 0, 0, 90, AAA 
845 DATA 09,01,00,01,0F,7F, DE, D, 00, 00,01,00,21,0F, 7D, BF, 695 
850 DATA 09,00,00,01,88,41,1F,FF,0F, 00,00, 00,01,44,41,7F,A991 
855 DATA 6F,0F, 00,00, 00,01, AA, 51, DF,BF,0F,00,00,00,01,88,AD11 
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860 DATA 71,6F,3F,8F,00, 40, 00,03, 18, D7,BF,FB,EF, 00, 62, 00, B2C9 
865 DATA 03,19,6F,1F,F7,FF, 00,72, 00,03, 7F,BF,3E,FF,FF, 88, B9B0 
870 DATA 77,88,13,CC,0F,3E,EF,FF,88,73,FD,77,0F,0F,7F,FC,C1D1 
875 DATA F7,CC,77,ED,EF, 7F,0F,7F, AD, B7, CC, 77,FE, A1 ,FB, DA, CDOF 
880 DATA 7B,FC,B7,CC, 77,CE, 13,F7,ED, 87, EF, 6F, 88, 67,88, 31, 0702 
885 DATA FD,DE, 7B,FF,EF,88,67,88,13,FF,4F,1F,FF,DF,00, 57,E872 
899 DATA 00,00, EF,88,00,FF, 2E,00,EE, 00,06, 77, 00,00, 33, 88,E536 
895 DATA 00,00, 00, 06,00, 00, 09,00, 00, 11,FF,00, 00, 00,00, 00,E646 
900 DATA 00,00, 00,77,FF,0F, 88,00, 00, 00,00, 00, 33,FF, CF, 1F,EA73 
995 DATA 6F,88,00,00,00, 00,FF,EF,0F,5F,DF,6F,88,00,B0,FO,F13C 
916 DATA F0,8F,2F,FF,5F,DF,6F,CC, 00, A4, A0, A0, EF,AF,FF,5F,FB12 
915 DATA DF,6F,CC, 00,B4,FO,FO,8F, 2F,0F,4F, 1F,0F,EE, 00, 83,027B 
926 DATA 00,00,FF,FF,FF,FF,FF,FF,EE, 00, FO, 80, 09, 00, 09, 00, DAD3 
925 DATA 00, 11,0F,2E,00,05, 09, 00, 00, 00, 00, 00, 11,7F,BF, 00,0C75 
920 DATA 70,00,00,00,00, 00,00, 11,7F,BF, 00, 02, 00,00, 09, 00, 0E 36 
935 DATA 11,FF,FF,0F,3F, 00, 02,00, 00, 00,00, 77,FB,FF,FF,FF, 1501 
940 DATA 88,02,06,00, 00, 11,FC,F7,F1,FF,0F, 88,02, 0ÿ, 00, 00, 1A18 
945 DATA 77,C0,DD,98,F7,6F, CC, 02, 00, 09,00, FC, OF, AB, BF, 79,213 
950 DATA 8F,CC, 04,00, 00, 11,C8, 00, DD, 8, 19,FF, CC, 04, 08, 60, 2737 
955 DATA 77,F7,0F,7F,0F, 7F,F7,80, 03, 00,00, FE, DD, 88, 00, 09, 2DAA 
960 DATA DD,FB,8C,00, 00, 11,FE, AB, 9€, F4, 87, AB,FE, 08, 00, 00, 3585 
985 DATA 11,FE, DD, 98,6F 08, DD, CE, 00, 09, 00,00, 0,F7,07, 0F, ADS 
970 DATA OF, 7F, 80,00, 00,00, 06,00, 50,50, 56,50, 50,00, Gù, 0, 3D73 
975 DATA 09,77,7F,FF,FF, 00, 00,00, 00,00, 00, 77,FF, EF, 3F, 00, 42DE 
980 DATA 00,00,00,00,11,FF,2F,FF,FF,7F,88,30,FF,B8, 11, 7F, 4966 
985 DATA FF/EF,FF,4F,CC, 61,0F,0C, 11,DF,FF,FF,FF,7F,EE, 00,5344 
990 DATA 0E,00,11,FF,00,DF,9F,5D,4€,30,FF,88, 11,EE, 00,FF, 5A49 
995 DATA FF,19,EE, 61,0F, DC, 11,6E, 00,67,FF, 08, C0, Où, 0E, 00, SF7D 
1900 DATA 11,EE,00,77,EF, 18,48, 30,FF,88, 11,EE, 00,57, 6F,08, 65C8 
1905 DATA 84,61,0F,0C, 11,46€, 00, 77,EF, 08, 00, 00, 0€, 00, 11,EE, 69C2 
1919 DATA 00,F0,F7, AA, AA, AA, AA, AA, 11,EE, 11,FF,FF,BF,7F,FF, 7416 
1915 DATA FF,EE, 00, C0, 33,05, 05, 47, BD, 05, 03, 4C, 00,84, 23, 1B, 7BAA 
1029 DATA CE,3B, 1B,CF,77,EE,00,84,01,36,EF,05,36,EF,47, 2€, 7F4B 
1925 DATA 00,84,01,7D,FF, OA, 7D,FF,47, 2A,00, 84,00, 7F,F7,05,8542 
1930 DATA 77,F7,47, 2,00, CC, 09, 7F,DF, A, 7F,DF, 77,66, 77,FF, BD06 
1935 DATA 08,37, AF,0F,3F,AE,33,CC,9F,5F,0C, 11,CC, 00, 11,CC,92B3 
1940 DATA 00,00, 00, 04,00, 00,00, 20, 00, 00, 00, 00,00, 60, 02, 00, 9205 
1945 DATA 00,00, 09, 00,00, 02,00, 00, 09, 00, 00, 09, 02, 00, 06, 00, 9209 
1950 DATA 00,00, 09,02, 00, 00,00, 00, 09, 00, 02, 09,00, D, 06, 00, 920D 
1955 DATA 09,02, 00, 09,00, D, 06,00, 77,06, 00, 00,FQ,FO,FO,E1,9707 
1960 DATA CO, 00, 30,F0,F0,FO,F0, 69, 0C, 61 ,C3,C3,0F,0F, 20,04, 961 
1065 DATA F0,F0,F0,FO,F0,E1,0E,0F,0F,0F,0F,0F,0E,02,05,05,A465 
1970 DATA 05,05, 05,07, 0€, 02,08, 28, A0, 82, OA, 02, 91, 14, 44,00, Ab44 
1975 DATA 64,05, 0C, 00, 48,EE,00, EE, 89,08, 00, 09, 44,04, 44,20,AA11 
1080 DATA 08, 19,44,00,0A, 09,45, 00, 00,EE. 03, 01,08,FE, 06, 10, ACCA 
1085 DATA 44,00, 00,00, 44, 00,00, AD, A9, AO, AD, AO, 00, 0, 09, 0Ù, BOGC 
1999 DATA 00,00, 06, 10, 00,00, 00,00, 00,00, 00,00, 01,00, 00, 00, BG7D 
1995 DATA 00,00, 09,00, 00, 01,00, 00, 00, 00, 0, 09, 0, 00, 01,00, B07F 
1100 DATA 00,00, 00,00, 00, 00,00, 30, &B, 00, 00, 00,FD, 78,4, D2, B405 
1195 DATA F0,B4,0E,00,30,E1,0F,0F,0F,GF, LE, 81,00,F0,F0,FO, BA73 
1119 DATA F0,FD,FO,F0,C3,08,0D,05,05,05,05, 05,05, 04,08, 0, BF3F 
1115 DATA OA, 04, OA, DA, 0A, OA, 0F,08, 05,50, 50, 50,50, 59, 49,04, C16B 
1129 DATA 08, 12, 00,88, 00,00, 22, 10, 07,00, 06,99, 44,00, 06,55, C378 
1125 DATA 22,08, 00, 11,44,89,0F,0F, 22,55, 00, 00, 10,88,03,00,CSBD 
1130 DATA 01,08, 32,00, 00, 06,50, 50, 50,50, 50, 40,00, 00, 00,00, C7BE 
1135 DATA 00,00, 00,00, 00, 00,00, 00, 09,00, FO, FO,F0,FD, 00,00, CE7E 
1140 DATA 00,00, 00,00, 00, 00,00, 00, 00,00, 00, 00,F3,FF,FF,FC, CF6B 
1145" DATA 09,00, 09,00, 00,00, 09,00, 09, 00, 00,00, 00,00, F7,FF,D15E 
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1150 DATA FF,FE, 09,00, 00,00, 09, 06, 00, 00, 60, 00, 00, 00, 00, 20, D35B 
1155 DATA E7, 1F,8F, 7E, 00, 00, 00, 00, 00, 00, 00, DO, 00, 09, 00, 00, DSGE 
1160 DATA 09,00,E7, DF,BF, 7E, 00, 00, 00, 00, 06, 00, 00, 09,00, 00, DB71 
1165 DATA 60,00, 00, 00,E7,DF, BF, 7E, 0, 06,00, 00, 70,F4,E1, C0, DE7S 
1179 DATA 00,00, 00, 00,00, 00,E7,9F,AF, 7E, 00,00, 00, 10,F0,4B,E273 
1175 DATA 87,68,F0,F0,00, 00,00, 09,E7,9F,AF, 7E, 00, 00,00, 70,EB65 
1180 DATA F0,F0,FO,F0,FO,FO, 80,00, 00, 09,E7,9F,AF, 7E,00,00,F138 
1185 DATA 00,0F,0F, OF, 0F,OF, OF, 0F,68, D, 05,00,E7, 1F,BF, 7E,F42E 
1190 DATA 01,95, 06, 03,58, 50,50, 50, 50, 43, 0B,0F,0F, DC, F3, FF, FB3F 
1195 DATA FF,FC, 03, 0F,0E, 00, A2, 03, 00, 00, DC, A9, 09, 22, 22, 06, FBFE 
1209 DATA FO, FO, FD, F0, 06, 44, 44,00, 77, 00,00, 00, 11,CC, 00,55, 01FS 
1205 DATA 55,03,0F,0F,0F,0F, GC, AA, AA, 00, 22, AG, AD, AG, AD, 88,0713 
1219 DATA 00,22, 22, 00,00, 00, 00,00, 00, 44,44, 00, B4,F3, 52,6, OABE 
1215 DATA 21,C4,21,C4,B4,F3,52,E6, 21, C4, 21,C4, B4,F3,52,Eb, 1410 
1220 DATA 21,C4,21,C4,09,11,00,31,88,71,CC,F3,EE,F3,EE, F7, 1C9A 
1225 DATA EE,FF, CE, FF,CE,FF,CE,FF, BE, 77,80, 23, 08,55, 44, 99, 26DC 
1230 DATA 22,F3,EE,F7,CE,FF,8E,DF, 19,F1,EE, 00, 11,FF,0E, 00, 301D 
1235 DATA 33,7F,8F,00,77,FF,CF,0B,DF,FF,EF, OC, FF,FF,EF, ÔC, 397D 
1240 DATA DE,FO,E1,0C,FE, 80, E1,0C, DE, DO,E1,0C,FE,FO,E1, OC, 4419 
1245 DATA DE, DO, Et, OC, EE, 70, 21,00, DE, 70,61,0C,FE,FO,E1, 0C, 4CD5 
1250 DATA DF,FF,EF, 0, 77,FF, CF, 08, 33, 7F,8F,00, 11,FF,0E, 00, S45A 
1255 DATA 84,84,84,84,B4,00, 00,00, 00, 84, 84, 84, 84, 06, 00, 00, SBFE 
1260 DATA 00,84, 84,84,64, 00, 00,00, 00, 84,84, B4, 84, 00, 00, 00, SD1E 
1265 DATA 00,84,84, 84,84, 00, 00, 00, 00, 84, 84,84, B4, 0û, 00, 00, 613€ 
1270 DATA 00,84,84,84, 84,00, 00, 00, 00, 84, 84, 84, 84, 00, 00, 00, 655E 
1275 DATA 00,84, 84,84,84,00, 00, 00, 09, 84, 84, 84, B4, 00, 00, 00, 497E 
1280 DATA 00,84, 84,84,84, 09, 00,00, 00, 84,84, 84, 84, 00, 00, 00, 6D9E 
1285 DATA Où, 0F,0F,0F,0F,0F,0F,0F, 08, 70,F0,FO,FO,F4,FO,FO, 741F 
1290 DATA 08,00, 84,84,64, 00, 09,00, 80, 00, 84, 84, 84, 00, 00, 06, 77EF 
1295 DATA 80,00, 0F,0F,0F,0F, 0F,08, 80,00, 70,F0,FO,F0,FO,0C, 7D4E 
1309 DATA 86,00, 09,84, 84,00, QD, 84, 86,00, 00, 84, 84, 08, 00,84, Bléé 
1395 DATA 80,00, 00, 0F,0F, OF, 08,84, 89, 00, 00, 70, F0,F, 00, 84,85FF 
1319 DATA 80,00, 00, 00,84, 00, 84,84, 89, 00,00, 09, 84,00, 84,84, 8417 
1315 DATA 80,00, 00, 00, 19, 00,00, 00,09, 10,00, 00, 00, 00, 19, 20, BAE7 
1320 DATA 00,00, 00, 10,20, 00, 00,00, 19,F0,00, 00, 10,B0, 4,00, BD17 
1325 DATA 09,10,50, 80,00, 00, 19, B0, 00, DO, 00, 10, 10,00, 09, 00, BED7 
1330 DATA 33,FE,88,00,00,FF,FF,E6, 00,33, FF,FF,F9,88,77,FF, 7890 
1335 DATA FF,FC, CC, OF, 0F,0F, OF,OE,FF,FF,FF,FC,EE, EC, D9,E2,A30B 
1349 DATA 74,CA,0F,0F,0F,0F,0E,67,7F,FF, FC, CC, 33,3F,FF,F9, AAGA 
1345 DATA 88,00, DF,FF,E6, 00, 09, 23,FE, 88, 00, 00, 22, 11,00, 88, BOSA 
1350 DATA 77,33,99,CC, 29, 10,00, 80, 77,33, 99, CC, 20, 10, 06, 80, BSDB 
1355 DATA 77,33,99,CC,FF,FF,FF,EE, 88, 00, 09, 22, AA, AA, AA, AA, EF24 
1369 DATA AA, AA, AA, AA, AA, AA, AA, AA, AA, AA, AA, AA, AA, AA, AA, AA, C9C4 
1365 DATA AA, AA, AA, AA, AA, AA, AA, AA, AA, AA, AA, AA, AA, AA, AA, AA, D444 
1370 DATA AA, AA, AA, AA, 88,00, 09, 22,FF,FF,FF,EE, AA, AA, AA, AA, DE49 
1375 DATA 44,44,44,44, AA, AA, AA, AA, 09, 00, 44,00, 22,00, 00,EE,E3S5 
1389 DATA 09,77, 00,00, 40,00, 20,00, 00,EE, 00, 77, 00,00, 49,00, ESDI 
1385 DATA 20,00, 00,EE, 00, 77,00, 11,FF,FF,FF,CC, 11,00, 00,00, EB41 
1390 DATA 44,FF,55,55,55, 77, 11,55,55,55, 44,11,55,55,55, 44, FOA2 
1395 DATA 11,55,55,55,44,11,55,55,55,44, 11,95, 55,95, 44, 11,F44F 
1408 DATA 55,55,55,44,11,55,55,55,44,11,55,55,55, 44,FF,55,F9EE 
1495 DATA 55,55, 77,11,00,00, 00,44, 11,FF,FF,FF, CC, 11,55,95,FFF9 
1419 DATA 55,44, 09,88, 88,88, 88, 11,55,55,55, 44,FF,FF, 60,00, 0604 
1415 DATA 86, 19,09, 00,00, 11,CC, 33,88, 00, 00, 00, 80, 19, 00, 00, 0BBC 
1420 DATA 00,11,CC,33,88,00,00,FF,FF,FF,FF,00, 00,88, 00,00, 0EDB 
1425 DATA 11,00,FF,FF,FF,FF,FF,FF,89,0F,0F,0F, 0F, 19, BB,FF, 1778 
1439 DATA FF,FF,FF,DD,89,0F,0F,0F,0F,19,BB,FF,FF,FF,FF, DD, 21C7 
1435 DATA BB,FF,FF,FF,FF,DD,89,0F,0F,0F,0F, 19, BB,FF,FF,FF,2BF1 


1449 DATA FF,DD,89,0F,0F,0F,0F,19,FF,FF,FF,FF,FF,FF, 0,88, 3520 
1445 DATA 00,00, 11,00,00,FF,FF,FF, FF, 00, 00, 34, 0, 20, CD, 00, TAZA 
1450 DATA 00, 30,00, 00, C0, 00, 00,FF,FF,FF,FF,00, 00, 00, 0, 00, 3F 16 
1455 DATA 00, 11,FF,00,00,00, 00,00, 33,FF,FF,EE, 00, 0,00, 11,4356 
1460 DATA FF,F9,F4,F7,88,00,00,77,FB,FF,FE,F1,CC, 00, 11,FF, 4DFD 
1465 DATA FF,FF,FF,F8,CC,00,77,FF,FF,FF,FF,FF,E6,00,FF,FF, 5814 
1470 DATA FF,FF,FF,FF,EE, 11,FF, BA, 08,05, 15,FF,FF,33,FF, 34, 6525 
1475 DATA F0,F0,C2,FF,FF,33,FF,7A,F0,F0,C7,CF,FF,77,FF,71,71C8 
1480 DATA 89,1F,8E,8F,08,77,FF,71,07,1E,BE,8F,7F,FF,FF, 79, 7984 
1485 DATA 07, 1E,8F,8F,08, 1F,FF,71,8F,79,8E,BF,7F,E1,FF,71,8183 
1490 DATA FF,FF,BE,8F,08,F0,7F,79,FF,FF, EF, BF, 7F,F0,3F, 71,889 
1495 DATA FF,FF,BE,8F,08, 70,87,71,FF,FF, BE, BF, 7F, 70,87, 79,95BE 
1500 DATA FF,FF,8F,8F,7F,30,87,71,FF,FF,BE, EF, bE, 30,B7,63,9F84 
1505 DATA 0F,0F,4E,FF,EE, 10,87,0B, 0F, 0, OD,FF, CC, 09,87, 05, A5b1 
1519 DATA 05, 04,0A,FF, 88,09, 1F,CE, 09,00, 06, 00, 00, 00, 00, 09, A7EB 
1515 DATA 00, 09,00, 00,00, 00,00, 00, 09, 00, 00, 00, 0, 09, 00, 09, A7EB 
1529 DATA 00,00, 00, 00, 00,00, 00, 17,EC, 00, 00, 06, 00, 00, 70, FO, AA4B 
1525 DATA FO, C9, 00, 00,0, 00,00, 00, 09, 00, 00, 00, 0, 09,00, 00, ABFB 
1530 DATA 00,06,00, 00,00, 00, 00,00, 07,FE,FÜ,FO,FÈ,FO,FÜ, F7, B2A7 
1535 DATA FF,FO,F0,FD,FO,FO,FO,F0, FO, F0, CO, 00, 60, 0ü,00, 00, BCDé 
1540 DATA 06,00, 00, 00, 00, 00,00, 00, 00,03, 7F,FF,FF,FF,FF,FF,C253 
1545 DATA 9F,FF,FF,F3,FF,FF,FFFF,FF,FF, FF FC, 00, 00,00, 0ÿ,CDDB 
1550 DATA 09,06, 00,00,00,00,00, 00,00, 00,03, 3F,FF,FF,FF,FF, D216 
1555 DATA FF,8F,3F,FF,FB,FF,FF,FF,FF,FF, FF FF, FF, 80,00, 09, DESS 
1560 DATA 09,00, 00, 00,00, 00, Dû, 00, 09,00, 00,01, 0F, dF, OF, DF, DE92 
1565 DATA 0F,0F,0F,0F,7F,CB,0F,0F, 0F,OF, OF, OF, OF, 7F, 80, 00,E 180 
1570 DATA 09,00, 00, 00,00, 00, 00, 00, 00, 00, 00, 00, 00, 07,0F, DF,E1AS 
1575 DATA 0F,0F,0F,0F,0F, 1F,CB, OF, 0F, OF, OF, OF, OF, OF, 3F,CB,E44A 
1580 DATA 00,00, 00, 00, 06,00, 00, 00, 00, 00, 00, 00, 09, 00, 00, 00, E44A 
1585 DATA 09,00, 00, 00, 03,0F,0F, CB, 06, 00, 00, 00, 9, 00,00, 1F,E552 
1599 DATA CB, 06,00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, E&1A 
1595 DATA 00, 09,00, 00, 00, 00,08, FC, 09, 09, 00, 00, D, 09,00, 00, E71E 
1600 DATA 17,C8,00, 00,00, 00, 09, 00, 00, 00, 00, 00, OÙ, 00, 60, 09, E7FD 
1605 DATA 00, 00,00, 00,00, 00, 00, 0F, EC, 00, 09, 00, 00, 09,00, 09, EBFE 
1619 DATA 09, 17,C8, 00,00, 00,00, 00, 00, 00, 09, 00, 09,00, Gù, 06, E9D7 
1415 DATA 00,00, 00, 09, 00, 00, 09, 00, 0F, EC, 40, 09, 00, 9,00, 0ÿ, EAD2 
1629 DATA 00,00, 17,C8,00, 00,00, 00, 00, 00, 09,00, 0, 00, 00, 00, EBE1 
1425 DATA 00, 00,00, 00,00, 00, 00, 00, 00, 17, CB, 00, 0, 09, 00, 00, EC90 
1639 DATA 90,00, 00, 17,C8, 00,00, 00, 00, 00, 06, 00, 00, 00, 00, 00, ED6F 
1435 DATA 00,00,00, 00, 00, 00,00, 00, 00, 06, 17, CB, 00, 00,00, 00, EEAE 
1649 DATA 00,00, 00, 06, 17,C8,00, 00, 06, 00, 09, 30,FO,E0, 0ù, 00, F12D 
1645 DATA 00, 00,00, 00, 00, 00, 00, 00, 09, 00, 00, 17, CB, 00, 0, 09,F20C 
1650 DATA 00,00, 00, 00,00, 17,C8, 00, 00,00, 00, 00,03, 3E,EE, 00,F41A 
1655 DATA 00,00,00, 00,00, 00,00, 00, 09, 00, 00, 00, 17,C8,00,00,F4F9 
1660 DATA 00, 09,00, 00,00, 00, 17,C8, 00,00, 00, 00, 00, D, 3b, 00, FODE 
1665 DATA 00, 00,00, 00,00, 00,00, 00, 00, 0, 00,00, 09, 17, C8, 00, F6ED 
1670 DATA 00,09,00, 00,00, 00,00, 17, CB, 00, 09,00, 09, 00,00, 36, FB02 
1675 DATA 09,00,00, 00, 00,00,00, 00, 09, 00, dù, 00, 09,00, 17,CB,F8E1 
1680 DATA 90, 00,00, 00,00, 00,00, 00, 17,C8, 00, 00, 00, 00, 0ù, 09, F9C0 
1485 DATA 36,09, 00, 00,00, 00, 00, 00, DA, 00, 00, 00, 0,00, 00, 17,FAGD 
1699 DATA CB, 00, 09, 00, 00, 00,00, 09, 00, 17, EC, 00, 00, 00, 09, 60, FEDE 
1695 DATA 97, 7C,F0, 00,00, 00,00, 00, 00, Où, 00, 00, 0, 00, 0ù, 00, FD4B 
1700 DATA 17,C8, 00,09, 09,00, 00, 00, 00,00, 07,FE,FQ,F0,FÜ, FO, 02EF 
1705 DATA FO, 87,7F,FC,F,FO,F0, FD, 00, 00, 00,00, 00,00, D, 00, G9A1 
1719 DATA 09, 17,C8, 09,00, 00,00, 00, 00, 00, 00,03, 7F,FF,FF,FF, GDFF 
1715 DATA FF,FF,8F,0F,3E,FF,FF,FF,FF, C0, 00, 00, 09,00, 0ù, 00, 1595 
1720 DATA 00,00, 17,C8,00,00, 09, 00, 00, 00, 00, 00,03, 3F,FF,FF, 1884 
1725 DATA FF,FF,FF,8F,0F,3E,FF,FF,FF,FF, EC, 00, 00,00, 09, 00, 2175 


1730 DATA 00,00, 00, 17,C8, 00,08, 00,00, 0, 00,00, 00,01, 0F, OF, 2273 
1735 DATA 0F,0F,0F,0F,0E,00,36,0F,0F,0F, 1F,EC, 00, 00, 0ù, 9, 2428 
1740 DATA 06,00,00,00, 17,08, 00,00, 00,00, 00,00, 00, 00, 00, 07,2511 
1745 DATA 0F,0F,0F,OF,OF,OF,0F,0F,0F,OF,OF,OF,FE, 00, 00, 0, 26C3 
1750 DATA 00,00, 00,00, 00, 17,CB, 00,00, 00, 00, 00, 0, 0, 00, 06, 2742 
1755 DATA 00,00, 00,00, 00, 00,77,FF,FF, 00, 00, 00,03, 7E, 00, 14, 2AAC 
1766 DATA A7,00,0B, 87, 00,09, 67,08,04, 67, 20,04, 4F,0C, 03, 2F, 2095 
1765 DATA 04,07,2F, 10,03, 2F, 40,00,04,87,08,04,4F, 08, 04, 4F, 2F9E 
1776 DATA 10,07, 67, 20,04,87,38,07,67,40,04,2F, 40, 00,54, 57, 32EF 
1775 DATA 09,15, BC, 1E, 00, 50, 02, 00, 73, 12, 00, 50, 02, OC, 73, 14, 35DF 
1780 DATA 00, 50, 02, 00, 73, 16,52,5D,05, 15, 9C, 2A,52,5D,05, 15, 3936 
1785 DATA 44,24,91,50C,08, 18, 7F, 20, Cô,5F, 21, 18,9F, dé, OÙ, 02, 3D4F 
1790 DATA A7,06,04,A7,00,05, A7, 30,02,87,30,02,7F, 10, 02,7F,416C 
1795 DATA 28,95, 57,08, 0€, 2F,04, 02, 2F, 44, 00,04, 2F, 00, GA, A7, 4392 
1800 DATA 08,05, 7F, 18,08, 7F, 24,05, A7, 20, 0B, 87,38, 0F,A7,44,477F 
1895 DATA 04,2F, 40,00, 12,58,0B, 17,46, 19,52, 50,45, 15, BC, 33, 4A98 
1814 DATA E3,59,07, 16, BD, 40,00, 5C, 02,00, 97, 1A,48,5C, 04, 12, 4ECF 
1815 DATA 41,29, 00, 5, 02, 0C, BB, 1A, 40, 5C, 02, OC, 3B, 2E, 19,5, 51AA 
1820 DATA 05, 17,BE,0C,00,05, 7,05, 07, A7, 34,04, 7F, 34,09, 7F, 5562 
1825 DATA 0C,03,5F, 13,02,5F, 23, 03,57, 30,02,57,40,01,57,4C, S82E 
1830 DATA 95,2F,00,09,2F, 1F,00,0A,7F,08,05, A7, 19, 0b,5F, 1F, 5A73 
1835 DATA DA, A7, 30,05, 57,30, 09, 57,48, 00, BE, 5€, dé, 15, EC, 45, SEE7 
1840 DATA 25,50, 02, 11,70, 16,25,5C,02, 11,70, 18,48,5C, 04, 12, b1A7 
1845 DATA 91,28, 52, 50,05, 15,94, 12,54,57,09, 15, 44, 30,Cb,5F, 6621 
1850 DATA 21,18,77,0C,00, 13, A7, 00,02, BF, LE, 02,8F, 2A, 03, 7F, 6993 
1855 DATA 08,95, 7F, 30, 06, 57,00,02, 4F, 38,03, 4F, 44, 10,2F,0B, 6C21 
1860 DATA 09,05, 7F,04,04,2F,07,05,7F, 14,00, BF, 2,06, 7F, 38, GEF9 
1865 DATA 04,4F,40,05, A7, 40, 6b, 10,59, 0A, 15, EC, 28,52,5D, 05, 7244 
1870 DATA 15,44,00, 52, 50,05, 15,44, 11,7E,5A,09, 10,5F,44, 19, 75D4 
1875 DATA 5E,05,17,BE, 14,91,50,08, 18, 47,38, 0, 02, A7, 00, 04, 7959 
1889 DATA A7,00, 01,47, 20,02, A7, 20, db, A7,38, 02,8F, 1C, 01,87, 7DC3 
1885 DATA 44,03, 7F,00,01,67,00, 03,67, 14,04,67, 20, 01,4F, 0, Bübb 
1890 DATA 03,57,44,05,4F,08,03, 2F,04, 06, 2F, 1C, 04, 2F, 3C, 09, 8256 
1895 DATA 04,4F,04,05, A7, 08,03, 7F,00, 03,67, 10,05, BF, 18,03,8518 
1990 DATA A7,10,04,4F,10C,07,67, 20,08, A7, 34, 0B, 87,49, 04, C7, 8964 
1995 DATA 4C,04,2F, 40,00, 25,50, 02, 11,B8,04,25,5C, 02, 11.88, BCCB 
1910 DATA 21,0F,5B, 12, 0€, Bb, 36, 25,50, 02, 11, 60,02, 25,5C, 02, BFDE 
1915 DATA 11,60,04,25,50,02, 11,60, 06,25, 50,02, 11,68,45,91,931C 
1926 DATA 50,08, 18, 47,08, 00,02, A7, 00,02, A7, 10,07, A7, 28, 06, 962D 
1925 DATA A7,38,03,7F,10,01,7F,20,01:7F,28,01,7F,30,01,7F,941é 
1930 DATA 38,01,7F,40,04,57,00,03,97, 10, 06,57,20,01,2F, 09, C8C 
1935 DATA 0D,2F,10,01,2F,48,04,04, C7, 09,05, 7F, 00, 01,AF, 26,9F91 
1940 DATA 05,47, 18,05,57, 18,04, A7, 24, 0A, A7, 34,05, 7F,44,04,A34F 
1945 DATA 2F,44,04,C7, 40,00, 7E, 5,09, 10,87,40,48,5C,04, 12, A77E 
1950 DATA 69,04,48,5C,04,12,41,3C,48,5C, 04, 12,41, 40, BC, SD, AB73 
1955 DATA 94,17,46,1D,00, 10,A7, 00,02, BF, 00, 04, BF, 20,02, BF, AE9S 
1960 DATA 3C,03,6F,0C,03,6F, 38,02, 6F,48,05,4F, 00, 05,57, 30, B19E 
1965 DATA 02,57, 48,08, 2F,04,06,2F, 20,02, 2F,48, 00, 0F, A7, 08, E412 
1978 DATA 08,6F, 1C,07,8F, 30, 10,BF,44,04,C7,48, 09, BE, SE, dé, B873 
1975 DATA 15,BC, 26,63, 59,07, 16, BD, 30,0F,5B, 12, 0€, 3D, 0D, BC, BD49 
1980 DATA 5D,64,17,46,38,91,50,08, 18,67, 0€, 06, 04, A7, 07,04, CÜGE 
1985 DATA A7,27,03,A7,3B,01,6F,00,02,6F, 08, 05, 7F,17,04,7F,C428 
1996 DATA 37,01,57,00,05,57,08,05,57, 28, 02,57,43,0D,2F, 10, C696 
1995 DATA 00,04,07,07,05,A7,17,05,A7,37,0A, 7,47, 0C,6F , 04, CABS 
2000 DATA 05, 7F,2B,05,57, 10,05, 57, 3F, 00, 8E,5E, 06, 15, EC, GD, CE17 
2005 DATA 19,5E,05, 17, BE, 30, BE, 5€, 06, 15, BC, 3€, BC, 50,04, 17, D2CD 
2019 DATA 46,30, 48,50, 04, 12,49, 18,52, 50,05, 15, 60, 37,00, 42, DSEC 
2915 DATA A7,00,02,A7,0C, 03,47, 18, 04,A7,34,02, A7, 48,05, 77,DAS6 


79 


0 DATA 14,63,77,18,01.37 
DATA 69,2F, 20.40, 0AA7, 


DATA 46,47,14,65,37,7C,64,47,44,4 


+4 c 7 PET: 
deu 


CT ve 


[AR] 


DATA 17,BE,06,E7,55.67,16,B0,14,48,50, “94, 12,53 10,4 Esds 

DATA d4,17.41,18.48,5i,%4.12.4i.E5iE 

2545 DATA F.28, 08, 01,47, 08,61 EFBE 

U54 L'ATA F,:8.03,7F,2L.F2Cé 
né 


15,57,10.0F, A7 * 24,05,5 


EEE 


ar T À7 
Mets dist 


LC 30: 02.6C.85 5 


+ LT JA 17 EC AC 17 di 7= 
£ PS R ASaEs 17,46435 


34,03,7F,.14,02,7F,36 


CELL EEE EE LU 


LEE 


2ibé DATA 5F,06,17,08,21,54,5 

2195 DATA 36.52, 9D:08, 15,44, 14,92 

2iié DATA & 

2115 DATA 

2126 DATA 

2125 DATA 

2136 DATA 44,64,57,50,05, 15,04 19 ENT 1,16,-1,1,1,9,18,10,1,12ENV 1,1,10,1.5,-2,1,1,0, :YB< 
2135 DATA 64,12.665,39,46 JL. 64,12,87,2D, EC. SD, 4, FA 19,5,2,1,1.-10,1:ENT 2,279,1,1:ENV 2,127.-20.1,127,-7û, 
2146 DATA d6,12,07,04,12,5F.ud,12,7F 04, I2,EF, dd, 12,3 DSE LIENV 3,1,10,1,10,-1,102ENV 4.1,15,1.15,-1,32ENT 5.96. 
2145 DATA 12,0F,04,07,1F, “64, pre .96,18,C7,40,06,66 2FES DZIENV 6,1,10,1,10,-1.1:ENV 14,15,-1,1S:SFEED INK 5.5: 

2156 DATA FF,61,06, 60, 0.00, 00,05,07, 60,07, 41,01,5F.4 7157 | BORDER 4 

2155 DATA 00, 1E,06,01,02,02,5F,00,00,00,FA, 06 da 26 e$="mono. “:GOSUE i4d6:a$="Jovstick":b$="Clavier “: AC: 


2 RESTORE 1930: READ ad, d'HHILE ad<:-1:FÜOKE ad.d!:READ a0.d 
DE 2WEND: DEF INT a,b.c.d.q.ue.r.t,vez,.p 
08,20, 00,81,64,08. 08,06, 1F, 00, 3er 26 GOSUB 3:14 


2166 DATA 41,6F,.44,1E,00.81.00,00, 00.00, 00,00, 01.00. 4i,07, 1542 


2163 DATA 66 6%, 64,01,03,03.06,60, 


46 WINDOW #1.5,21,4,14:PAFER #1.6r0L 
50 WINDOW #2,4,20,7, 7: FAFER — 5 
66 WINDOH #3,26,36,4,24: PAPER #3. br CLS#3 HG: 
73 WINDOW #4,25,35,3,22:FPAFER #4,3: CLS#4 *IH 
89 LOCATE #2,3,2:PRINT#2, TCHERNMISLAND" #EJ: 
9ù LOCATE #2,3,2:PRINT#2,.CHR$ (23) CHR# (is " 2MkE 
; 5, 4201 “CHR (22) CHR$ (G) 

3,4774 | 196 LOCATE #2,6,4:PRINTHZ,CHR$(iédis" 1987" 2 JE: 
119 LOCATE #2,6,6:PRINT#2, “Raphael" EC: 
124 LOCATE #2,9,7:PRINT#2, "8" :YD< 
130 LOCATE #2,6,8:FRINT#2. "Olivier" :QE< 
146 LOCATE #2,5,16:PRINT#2, "GUTIERREZ" 3RF< 


2206 DATA 40,95. 00,00,43,17 1727,03. 00,00, 00,00. 06,040, d6Fe 


2265 DATA 66,6F,46,00,07,2F 3F.FF. 63. 40,06, 04,58 pe, 


DE CAN ARE ; 
2216 DATA 46,9F,55,.85,0 


2215 LATA 00,8F,00,67,1F 


2224 DATA A6, 6F, 00 


2235 DATA CF,CF, CFACF, CE. di 158 LOCATE #4,1,3:PRINT#4, 1) Ordre de mis >16: 
2249 DATA 6 3 trou F, JF, 5F 310n 
2245 16ù LOCATE #4,1,8:FRINT#A."2) Ecran: " MH< 


225ù DATA OZ,  àn 67.07 2 2F,60,00, on 17 r F,43 22,61,4847 | 174 LOCATE #4,4,9:FRINT#4.e$ #DJ< 
2295 DATA 63,03,07,17,2F,07,03,02,01,02,03,03,17,3F,03,67,4016 | 180 LOCATE #4,1,12:PRINT#4,"3) “CHR#(24)a$CHhé (24) 3 IR: 
2264 DATA 92,66,03,67,03,57,FF,03,07,07,00,01,F3,A3,63,82.4Fie | 196 LOCATE 444 LAS PRINTHE, ou 3EL4 
2243 DATA 63,63,00,06, 00, AA, AA, 06,00, 00, A4, 06,54,56,33, 24,327 266 LOCATE #4.4,15:FRINTH#I,b$ sTC< 
2276 DATA 26,20, 20,20, 20, 70,70, 20, 20, 20,53,.4 nt tps eal 216 LOCATE #4,1,18:FRINTK4."4) Jeu #ÜD< 
2275 DATA 26,26,26,26,24,52,42,4F,26,20,29,20,26,52,41,44,57E7 | 224 GOSUE 3184 QE: 
2284 DATA 66,00, 02,0F,C7,D2,01,CD.CD,[ CS, DF, CS, 03, 02,05, 04, 236 OUT SCO, 6: OUT &BDüG 
ATA DF,D6,C1, de CS, D2,DF,C5,D4,0F,79C5 | 244 GOSUE 2964 HG: 
2296 DATA D2,01,D6,08,01,05,CC,DF,07,D5.04,07,C5,02,02,05,7008 | 254 t$="":UHILE t$£i"i" OR Té:"g" 3 JE 
2295 DATA DAAE,DF,EZ,.B1,B8,E0,Eû, DF .D3,0i,C9,CE.D4,D0F,C7.89EF | 266 t$=INKEY$:HEND EE 
2 CIDS, CA CS, CE,DS,DF, AB, Cô 7, DF,9 ë ON VAL(tS) GOTO 360, 1426, 1806, 1986 3JK< 
2385 DATA Ci,D6,D2,.C5,CC,DF,B1,89,8B6, 87, DF, AE. 04,05 280 GOSUE 29466 2ML< 


N°7 NE TE 
.D2,Ci,CE, LI CS, 


© 
Gr 
o 


290 CALL 4BB@6 
300 WINDOW#S, 3, 36,3, 24:PAPER #5,0:CLS#S 
310 WINDOWK6, 2,35, 2,23: PAPER #6, 3:CLS#6 


320 WINDOW 


SWAP 0,6 


330 PEN 1:LOCATE 19,2:PRINT "Ordre de mission":PRINT 


340 PRINT" 
350 PRINT" 
360 PRINT" 
370 PRINT“ 
380 PRINT" 
399 PRINT" 
400 PRINT" 
410 PRINT" 
420 PRINT" 


Le reacteur no 4 de la centrale":PRINT 
atomique de TCHERNMISLAND est":PRINT 
entre en fusion et menace de":PRINT 
faire exploser toute la centrale. “:PRINT 
Vous devez evacuer de l'atelier":PRINT 
contiqu 25 caisses contenant des“:PRINT 
documents et des materiels tres":PRINT 
precieux avant l'explosion":PRINT 
finale." 


430 GOSUB 2969 
440 CALL &BB0b 
450 WINDOW#S,5,26,5, 22: CLS#5 


460 WINDOH 
479 LOCATE 
480 PRINT" 
490 PRINT 

909 PRINT" 
919 PRINT" 
920 PRINT" 
930 PRINT" 
540 PRINT" 
590 PRINT" 


4,25,4,21:PAPER 1:PEN 3:CLS 
1,2 
Pour ce faire vous" 


pourrez utiliser 3":PRINT 
robots telecommandes." 

Ces robots , bourres":PRINT 
d'electronique, sont“:PRINT 
tres fragiles :":PRINT 
Veillez a ne pas les":PRINT 


560 PRINT" les laisser tomber":PRINT 

570 PRINT" de trop haut!" 

580 GOSUB 2960 

999 CALL &BB06 

690 PEN 1:HINDOW 2,35,4,23:PAPER 3:CLS 

619 LOCATE 1,4 

620 PRINT" Sachez que toutes les salles de":PRINT 
640 PRINT" l'atelier sont occupees par des":PRINT 
660 PRINT" robots d'entretien qui ont":PRINT 

689 PRINT" recu une dose importante de":PRINT 
760 PRINT" radiations , les detournant de":PRINT 
720 PRINT" leur fonction premiere  de":PRINT 
740 PRINT" nettoyage et les faisant se":PRINT 
760 PRINT" retourner contre tout visiteur." 

770 GOSUB 2960 

780 CALL &BB96 


790 PEN 3:PAPER 1:WINDOW#5,5,32,5,13:CLS#5:WINDOW 4,31, 


4,12:CLS 


819 LOCATE 1,2:PRINT" Evitez tout contact avec":PRINT : 


830 PRINT" 
850 PRINT“ 
870 PRINT" 


eux car une irradiation":PRINT 
superieure à 109 radons":PRINT 
detruirait votre robot." 


880 GOSUB 2960 
890 CALL &BB0b 
900 PEN 3:PAPER 1:WINDOW#5,5, 32, 15,22: CLS#5 


920 WINDOW 


4,31,14,21:CLS 


930 LOCATE 1,1 


940 PRINT" Vous pourrez heureusement":PRINT 
960 PRINT" utiliser une chambre de“:PRINT 
980 PRINT" sterilisation qui abaissera" 


998 PRINT" votre taux de radioactivite" 

1969 GOSUB 2969 

1819 CALL &BB06 

1929 PEN 1:WINDOW 2,35,4,23 

1939 PAPER 3:CLS 

1948 LOCATE 1,2 

1956 PRINT " Un helicoptere vous transportera" 
1968 PRINT 

1979 PRINT" directement dans le coeur du" 
1980 PRINT 

1999 PRINT" reacteur et vous y attendra" 
1199 PRINT 

1119 PRINT" jusqu'a la fin du compte a" 
1129 PRINT 

1130 PRINT" rebours precedant l'explosion." 
1149 PRINT 

1150 PRINT" Evacuez les caisses par le" 
1169 PRINT 

1179 PRINT" tapis - roulant 
1180 PRINT 

1199 PRINT" l'helicoptere une fois votre" 
1209 PRINT 

1219 PRINT" tache accomplie." 

1220 GOSUB 2966 

1239 CALL &BB06 

1249 PEN 3:PAPER 1 

1259 WINDOWKS,5,32,5,15:CLS#5 

1268 WINDOW 4,31,4,14:CLS 

1279 LOCATE 1,2 

1289 PRINT" Le robot se deplace avec" 
1299 PRINT 

1309 PRINT" les touches du curseur ou" 
1319 PRINT 

1324 PRINT“ avec le joystick." 

1339 PRINT 

1340 PRINT" Pour pousser une caisse," 
1350 PRINT 

1369 PRINT" appuyez sur FEU ou SHIFT." 
1376 GOSUB 2960 

1389 CALL &BB96 

1399 WINDOW SWAP 9,6:CLS 

1490 GOSUB 3330 

1419 GOTO 49 

1429 GOSUB 1449 

1439 GOTO 154 

1449 IF e$="couleur" THEN e$="mono. 
1669 ELSE e$="couleur":BORDER 4:RESTDRE 1529 

1454 READ a 

1469 WHILE at>-1 

1470 READ b,c 

1486 INK a,b,c 

1490 READ a 

1509 WEND 

1519 RETURN 

1520 DATA 1,26,26 

1539 DATA 2,2,2 

1549 DATA 3,11,11 

1559 DATA @,0,0 


et regagnez" 


“: BORDER 1:RESTORE >YK< 


1560 DATA 5,7,7 
1579 DATA 6,11,11 
1580 DATA 7,23,23 
1590 DATA 8,19,18 
1609 DATA 9,15,15 
1619 DATA 19,18, 18 
1629 DATA 11,15,15 
1630 DATA 12,29, 11 
1649 DATA 13,11,26 
1650 DATA 14,9,9,-1 
1660 DATA 1,25,25 
1670 DATA 2,8,8 
1680 DATA 3,15,15 
1690 DATA 9,9,0 
1700 DATA 5,7,7 
1719 DATA 6,26, 26 
1729 DATA 7,19,19 
1730 DATA 8,14, 14 
1749 DATA 9,7,7 
1750 DATA 19,9,9 
1769 DATA 11,16,16 
1774 DATA 12,7,26 
1780 DATA 13, 26,7 
1790 DATA 14,10, 19,-1 


1806 IF a$="Joystick" THEN a$="Clavier ":b$="joystick": : 
RESTORE 1889 ELSE a$="Joystick":b$="Clavier “:RESTORE 1 


20 
1810 READ ad, d 

1820 WHILE ad<>-1 

1830 POKE ad,d 

1840 READ ad, d 

1850 WEND 

1860 GOSUB 2960 

1870 GOTO 154 

1880 DATA 15403,21,16342,0 
1890 DATA 16519, 2, 16878, 8 

1990 DATA 16846, 1, 16857, 21 
1919 DATA 17669,1,17077,8 

1920 DATA 17088, 21,-1 

1930 DATA 15403, 76, 16342, 72 
1940 DATA 16519,73, 16838, 74 
1950 DATA 16846, 75, 16857, 74 
1960 DATA 17049,75, 17677, 74 
1970 DATA 17088, 76, -1 

1980 GOSUB 3260 

1990 MODE d:PAPER & 

2006 CLS:0RIGIN 4,9,0,640,0,52 
2619 CLG 10:PAPER © 

2029 CALL 43000 

2636 GOSUB 3180 

2049 SOUND 1,560,-116,0,6,0,31 
2656 i=2000 

2066 GOSUB 2990 

2676 CALL 14934 

2980 ON PEEK(159043)+1 GOTO 2090, 2200, 2180 
2690 i=2000 

2100 GOSUB 2999 

2119 MODE 1 


82 


2120 GOSUB 2639 
2130 LOCATE 7,9:PEN 1 


2146 PRINT'Vous avez trop tarde a" 


2156 LOCATE 5,11 


2168 PRINT"'ramener toutes les caisses." 


2176 GOTO 2810 
2189 GOSUB 2630 

2190 GOTO 2770 

2200 1=2500 

2216 GOSUB 2990 

2220 FOR I=1 10 3 

2236 CALL 4ED29 

2249 FOR a=1 TO 350:NEXT 
2256 NEXT 

2260 GOSUB 3429 

2276 GOSUB 3310 

2286 WINDOW #5,5,37,3,24 
2296 PAPER #5,0:CLSHS 
2300 WINDOWHE, 4, 36, 2,23 
2319 PAPER #6, 3:CLSké 
2320 WINDOW SWAP 0,6 
2330 PEN 1:LOCATE 4,5 


2340 PRINT'BRAVO , VOUS AVEZ REUSSI A" 


2356 LOCATE 4,7 


2360 PRINT'RAMENER TOUTES LES CAISSES" 


2376 LOCATE 2,9 


2389 PRINT'AVANT QUE LA CENTRALE N'EXPLOSE" 


2296 LOCATE 2,12:FEN 2 


2464 PRINT'Votre score est de"; 
2416 hg$=HEX$ (PEEK (15937) )+HEX$ (PEEK (15936), 2)+HEX$ (PEE 


K (15035) , 2) 


2424 S$=HEX$ (PEEK (15034) }+HEX$ (PEEK (15033), 2) 
2434 PRINT VAL(hg$}+VAL(s$)+(PEEK(15039) XOR 3) *#1600; 


2448 PRINT'points." 
2456 GOSUB 3920 
2466 1=4509 

2470 GOSUB 2994 
2486 GOSUB 3266 
2499 MODE 4:PAPER 6 


2506 CLS:ORIGIN 0.6,6,640,6,52 


2519 CLG 19:FAPER 6 
2526 CALL 43900 
2539 GOSUB 3186 


2548 SOUND 1,506,-96,6,8,0,31 


2350 CALL 12407 

2568 1=4009 

2570 GOSUB 299ù 

2580 GOSUB 3629 

2590 GOTO 36 

2604 1=26000 

2619 GOSUB 299à 

2626 GOSUB 2964 

2634 GOSUE 3319 

264% WINDOW#5,5,37,3,2 
2650 PAPER #5,0:CLS#5 
2668 WINDOW#E, 4,36,2,23 
2670 PAPER #6,3:CLS#6 
2686 WINDOW SWAF 9,6 


3CF< 
?BG< 
FVHE 
#HJ< 
3 JK£ 
FLE 
»JM< 
?NN< 
AE 
2MF< 
PAIE 
>UH< 
3LJ< 
?QK£ 
3FL< 
?EM£ 
?LN< 
?GP< 
3AF< 
:EG< 
2FH< 
RES 
AE 
?ML< 
?LM< 
?PN£ 
>HP< 
?BQ< 
PNG 
?EH< 


3BJ< 
FHE< 
#UL< 
?CM< 
?LN£ 
>WP< 
:MQ< 
3BR< 
3YH£ 
*EJ< 
3FK£ 
FJL< 
EME 
S6N< 
FGF 
#X0< 
FNR£ 
?IT< 
AE 


2690 s$=HEX$ (PEEK (15434) }+HEXS$ (PEEK (15933) ,2) 


2700 LOCATE 6,2:PEN 2 


2716 PRINT"Vous avez accompli": VAL (s$) /2750#100; "4" 


2726 LOCATE 16,4 
2730 FRINT"de la mission." 
2746 LOCATE 3,6 


2750 PRINT"Votre score est de “s$;" points." 


276% RETURN 
2770 LOCATE 1,9:PEN 1 


2786 PRINT" Vous avez detruit les 3 robots" 


279% LOCATE 6,11 


2899 FRINT'mis a votre disposition" 


281% LOCATE 2,13 


2829 PRINT'"Il est trop tard pour recuperer" 


2839 LOCATE 6,15 


2846 FRINT"'les documents precieux." 


2854 LOCATE 5,17 


2864 PRINT"'VOUS AVEZ ECHOUE DANS VOTRE" 


2876 LOCATE 5,19 
288% PRINT" MISSION !!" 
2894 LOCATE 6,21 


2966 FRINT'LA CENTRALE VA EXFLOSER !!!" 


2916 GOSUB 2966 

2926 1=7500 

2934 GOSUB 2995 

2946 GOSUB 2559 

2950 GOTO 34 

296ÿ WHILE INÉEY#:2"" 
2974 WEND 

298% RETURN 

2994 FOR 1=1 T0 4 STEF -1 
3606 NEXT 

3619 RETURN 

3626 RESTORE 3176 

3634 SOUND 125,0,1,8 
3646 READ a 

3054 WHILE a:-1 

3666 SOUND i,a,14,5 
367% SOUND Z,a-2,14,5 
3686 SOUND 4,a-5, 14,5 
3096 READ a 

3199 WEND 

3119 WHILE SQ(1)<:4 
3126 WEND 

3134 SOUND 1,125,164,5 
3149 SOUND 2,127,169,5 
3156 SOUND 4,126,1866,5 
316% RETURN 


3174 DATA 142,154,159,156,139,169,-1 
3186 IF e$="couleur" THEN RESTORE 152%: BORDER 4 ELSE RE : 


STORE 166%: BORDER 1 
3196 READ a 

3200 HHILE aï:-1 
3219 READ b,c 

32264 INK a,b,c 
3236 READ a 

324% MEND 

3259 RETURN 


3260 BORDER 0 
3276 FOR i=0 TO 15 
3280 INK i,0 
3296 NEXT 
3300 RETURN 
3316 MODE 1:FEN 0 
3320 PAPER 1:CLS 
336 FOR i=32 TO 640 STEP 32 
3340 PLOT i,4,0 
3356 DRAWR 9, 400 
3360 NEXT 
3370 FOR i=296 T0 6 STEP -32 
3380 PLOT 0, i,9 
3390 DRANR 646,0 
3400 NEXT 
3419 RETURN 


3426 IF e$="couleur" THEN RESTORE 1666 ELSE RESTORE 152 


() 

3436 READ Q,HE,R,T,Y,2,X,C 
3446 FOR 1=26 TO à STEF -i 
345% FOR F=0 TO 196:NEXT 


3469 IF W<>6 THEN INK 1,H:W=W-1 
3470 IF T<>6 THEN INK 2,T:T=T-i 
3480 IF X<>4 THEN INK 3,K:X=X-1 


3499 NEXT 
3500 CLS 

3516 INK 1,E 

3520 INK 2,Y 

3530 INK 3,C 

3540 RETURN 

2554 GOSUB 3269 

3560 MODE 0:PAPER 6 

3576 CLS:ORIGIN 9,9,0,640,0,52 
3580 CLG 19:PAPER 

3590 CALL 43000 

3600 OUT LECOD, 6: DUT SED, 24 
3619 GOSUB 3180 

3620 FOR x=1 T0 10 

3630 FOR i=ù TO 15 

3649 GOSUB 3754 

3659 NEXT 

3660 NEXT 

3670 GOSUE 3180 

3680 FOR i=25 TO à STEF -1 
3690 OUT KBC, 6: OUT 4BD06, i 
3700 FOR c=0 TO SO:NEXT 

3710 NEXT 

3720 GOSUB 3260 


3736 SOUND 7,a#30+30, 200,15, 14,0,31 


3749 RETURN 

3756 RANDOMIZE TIME 

3760 a=RND+#27 

3776 INK 1,a:INE a MOD 16.1 
3786 OUT &BCOW, 13: OUT &BDG0, 1 


3796 SOUND 135, a#30+14, 206,15, 15,0,31 


3809 OUT ZBCO6, 13: OUT 2BD09,6 
3819 RETURN 
3824 GOTO 3656 


>PJ< 
>CK< 


MIRAGE IMAGER version TURBO 
enfin le TRANSFERT et la SAUVEGARDE ULTRA-RAPIDES ! 


RECHARGEZ UN PROGRAMME DE 64 Ko EN 14 SECONDES ! 
APRES L'AVOIR TRANSFERE EN UNE VINGTAINE DE SECONDES 
avec la version TURBO du MIRAGE IMAGER 


LE PERIPHERIQUE QUI TRANSFERE et SAUVEGARDE 
100 % DES PROGRAMMES 


LE MIRAGE IMAGER TURBO 


CPC 464/664 : 
seulement450 FF 


Port compris 


CPC 6128 : 
seulement 500 FF 


Port et câble 6128 compris 


Specifier si Schneider ou 6128 AZERTY “Nouvelle broche” S.V.P. 


MANUEL COMPLET de 3000 mots entièrement en Français 


Le MIRAGE IMAGER version TURBO est disponible maintenant. 
Chez nous, la RUPTURE DE STOCK N'EXISTE PAS. 


Ses caractéristiques : 


SAUVEGARDE 64 Ko SUR DISQUETTE EN UNE VINGTAINE DE SECONDES 
RECHARGE UN PROGRAMME DE 64 Ko EN 14 SECONDES ! 
TRANSFERT K7 / DISQUETTE ou DISQUETTE : CASSETTE et SAUVEGARDE K7 K7 ou 


DISQUETTE / DISQUETTE de tout programme protege où non jusqu'a 128 Ko (64 Ko sur 464/664) 


SAUVEGARDE K7 EN 3 VITESSES (normale, rapide et TURBO) 

TOOLKIT incorpore qui affiche les adresses, INK, PEN et autres details des programmes 
et ecrans, permettant un bidouillage acharne et intensif 

Grace au TOOLKIT, contemplez instantanement les resultats des bidouillages effectues ! 
MODE 64 K où 128 K avec les CPC 6128 

Se branche en 2 secondes ! 

Extréèmement simple a utiliser : gere par menus et l'on presse UN SEUL BOUTON pour 


transterer sauvegarder recharger 

Ne prend aucune place en RAM, n'est donc pas detectable par l'ordinateur 

Tres amical, detecte les erreurs de l'operateur 

8K RAM et 8 K ROM incorpores 

Compresse afin d'utiliser un espace minimum sur disque ou cassette 
Sauvegarde en un seul bloc (pratique pour archivage) 

Compatible avec les ROMS et cartes d'extension et permet aussi de les invalider 
Pour usage personnel 

Comporte un bus d'extension pour raccorder d'autres peripheriques 

Stoppez un jeu a n'importe quel moment, sauvegardez et reprenez-le au méme endroit 
TOUS les programmes transferes fonctionnent ! 


VENTE EXCLUSIVEMENT PAR CORRESPONDANCE - Envoyez vite votre Commande (en Français) à : DUCHET COMPUTERS 
51, Saint-George Road - CHEPSTOW KP6 SLA - ANGLETERRE. Téléphone : +44.291.257.80 
ENVOI IMMEDIAT LE JOUR MEME PAR AVION dans le Monde entier 
REGLEMENT PAR : 
MANDAT POSTE INTERNATIONAL en francs - FUROCHEQUE en livres sterling (vous faites la conversion) 
où CHEQUE BANCAIRE en livres sterling Compensable en Angleterre (votre banque fait la Conversion) 


Rédiger les mandats, etc. à l'ordre de DÜCHET Computers. 
Si vous êtes presse, réservez votre Commande EN PARLANT EN FRANÇAIS ! 


où Carte de Crédit internationale VISA, FUROCARD, MASTERCARD, ACCESS Es 


a 


Téléphonez à Caroline, Jean-Pierre où Didier au 44.291.257.80 de 8h à 19h. 


DUÜCHET COMPUTERS & SIREN SOFTWARE 


51 Saint-George Road - CHEPSTOW - NP6 5LA - ANGLETERRE. Tél. +44.291.257.80 


EN EXCLUSIVITE : DU MATERIEL ET DES PROGICIELS SUPER CHOUETTES EN FRANÇAIS 
POUR AMSTRAD - SCHNEIDER 464/664/6128 


FAITES EXPLOSER EN STEREO LES EFFETS SONORES ET MUSICAUX 
DE VOS LOGICIELS AMSTRAD AVEC L’AMPLI STEREO 


SOUNDBLASTER 


(195.00 FF Port compris) 


SOUNDBLASTER, miracle de la technologie miniature moderne, se raccorde directement au moniteur et°à l'ordi- 
nateur, Tous les Cables et prises sont fournis. Reliez Vos enceintes HiFi où autoradio (jusqu'à 40 Watts par Canal) 
directement au SOUNDBLASTER sans avoir à passer par votre Chaine Hi-Fi! Chargez vos logiciels d'arcade favoris 
et faites trembler les murs ! Terrorisez Votre entourage avec des effets sonores terribles l'ampli stéréo SOUND- 
BLASTER (10 6m x 6 cm x 2 em) pese 100 grammes. est lire prét a fonctionner avec : cable et prise de raccord 
au moniteur, Cable et prise de raccord a l'ordinateur, Cinq metres de cable pour enceintes, prise pour casque 
d'écoute, deux boutons de reglage volume et balance, etinstructions Completeés en français. 

SOUNDBLASTER ne vaut que 195.00 FF port compris. 
(Pour expédition hors Europe ajouter 20 FF SA\.P.) 
CADEAU GRATUIT ! A tout acheteur du SOUNDBEASTER nous offrons en Cadeau un magnifique casque d'écoute 
stér6o ultra-léger. 
Note : les enceintes Hi-Fine sont pas fournies avec SOUNDBIASTFR. 


ENFIN ! UN PROGRAMMATEUR D’EPROM ULTRA RAPIDE 
POUR AMSTRAD CPC ! 


Se relie à l'ordinateur en un instant, Comporte un support a force d'insertion nulle pour travail soigné et rapide. 
Faites une Copie de sauvegarde de VOS ROMS Commerciales. Transféré Vos programmes personnels Basic où ma- 
chine code, routines, RS\, sur FPROAL Copie de RONToriginale en RAT OU Sur disquette, Programme 16es FPROMS 8K 
où 16K à partir de RAA disquette Où K7. Programmation ultra-rapide une FPRONT dE TEK Est programmee en Moins 
de 2 minutes et demi, l'interface PROGRAMMATEUR D'EPROAT GSt fnree avec son logiciel utilitaire disquette 3" 
ou K7 (spécifiez S\P.) transferable sur EPROM Instructions completes en français. 
L'interface PROGRAMMATEUR D'EPROM ne vaut que 550.00 FF (port compris) 
(Pour expedition hors Europe ajouter 25 FF SAP.) 


LOGICIELS UTILITAIRES EN FRANÇAIS : 
TÜURBOLOCKS la disquette utilitaire en Français pour transferer de K7 a disquette les programmes récents 


et nouveaux protégés par le NOUVEAU “SpoediockK”. Transfert automatique 6tintégral en une opération, Extraordi- 
nairement facile à utiliser. 

TÜRBOLOCKS sur disquette 37 (464/664/6128)..........44004 004400 RS DRRLOES 150.00 FF port compris. 
(Pour expédition hors Europe ajouter 10 FF S\P.). 


CASSELOCKS la cassette utilitaire en français pour la sauvegarde K7/K7 des programmes récents et 


nouveaux protégés par le NOUVEAU “SpeediockK”. Enfantin à utiliser. CASSELOCKS sur K7 uniquement ne vaut 
que : 100.00 FF port compris. 
(Pour expédition hors Europe ajouter 10 FF SVP). 


ADAPTATEUR périphériques AMSTRAD CPC vers SCHNEIDER et AZERTY “nouvelles broches”. Vous êtes 
l'heureux possesseur d'un nouvel AMSTRAD AZERTY où d'un SCHNEIDER. Félicitations ! Cependant, il ne vous est pas 
possible de lui raccorder les périphériques des AMSTRAD QWERTY car les broches sont différentes. Quel dommage ! 
procurez-vous notre Cordon adaptateur et le tour est joué !Vous pourrez maintenant connecter tous les péri- 
phériques/interfaces conçus pour “l’ancienne” broche AMSTRAD. 

Cordon ADAPTATEUR “nouvelle/ancienne” broche... 120.00 FF port compris. 
(Pour expédition hors Europe ajouter 10 FF S.V.P.). 


VENTE EXCLUSIVEMENT PAR CORRESPONDANCE - Envoyez vite votre Commande (en Français) à : DUCHET COMPUTERS 
51, Saint-George Road - CHEPSTOW NP6 5LA - ANGLETERRE. Téléphone : +44.291.257.80 
ENVOI IMMEDIAT LE JOUR MEME PAR AVION dans le Monde entier 
REGLEMENT PAR : 
MANDAT POSTE INTERNATIONAL en francs - FUROCHEQUE en livres sterling (vous faites la Conversion) 
Où CHEQUE BANCAIRE en livres sterling Compensable en Angleterre (votre banque fait la Conversion) 


ou Carte de Credit internationale VISA, EUROCARD, MASTERCARD, ACCESS 


Rédiger les mandats, etc. à l'ordre de DUCHET Computers. 
Si vous êtes pressé, réservez votre Commande EN PARLANT EN FRANÇAIS ! 
Téléphonez à Caroline, Jean-Pierre ou Didier au 44.291.257.80 de 8h à 19h. 


Les programmes en français sont Copyright DUCHET COMPUTERS & SIREN SOFTWARE. Leur diffusion commerciale même partielle sous quelque titre 
ou forme que ce soit et par qui que ce soit est formellement interdite. 


PHCŒNIX 


Stéphane LOUET 
EEE LAUSANNE CEA 


Il'est particulièrement rageant de perdre des heures de dur labeur 
à cause d’une erreur d'inattention : vous venez de taper | era, 
‘**,*"" à la place de l era,'‘*.BAK"'. Ce programme répare en 
un clin d'œil les disquettes effacées par inadvertance. Il fonc- 
tionne sur tous les CPC et accepte les formats SYSTEM, VEN- 
DOR, DATA & IBM. Un directory saturé, c'est-à-dire contenant 
64 fichiers est régénéré en moins de trois secondes ! temps 
d'exécution sur catalogue ” ‘normal'" : une seconde). Une petite 
étoile permet de suivre le déroulement du programme : lecture 
du directory (phase la plus longue), réparation et sauvegarde 
du nouveau directory. PHOENIX constitue donc un garde-fou 
pour les programmeurs distraits. 


Eléments techniques 


Le directory est situé sur des pistes différentes selon le format. 


_ FORMAT PISTE br SECTEURS 


Adresse nom de fichier. 
Adresse bufter. 


LD HL,LABELS 
LD DE,#68088 


LDB, Longueur nom. 
CALL CAS OUT OPEN Ouverture fichier pour déterminer format 
cp *“ 9e Disquette absente ? 

JR Z ,LABELI 

cp “ ca ÿ Directory inexistant ? 


JR 2 ,LABEL2 
Ferme fichier. 
Retour Basic. 


CALL DISK OUT CLOSE 
RET 

LABELR :DEFM ‘A* 
LD HL,LABEL3 


1 Charge commande (LB4 lecture, &kBS ecriture). 
CALL KL-FIND-COMMAND 
RET NC 

LD (LABELA4),HL 


Retour si rien trouvé 
Sauver adresse routine. 


LD (LABEL4+2), HL Sauver Rom. 
LD € ,8 Lecteur (8 pour A, 1 pour B). 
LD D ,8 Piste directory. 


Secteur. 
Adresse butter. 


Fr 
5 
a 
= 
a 


RST #18 Appelle routine. 
DEFW LABEL4 
RET 1 Retour Basic. 
LABEL3 :DEFB #84 
LABEL4 DEFS 3 
LABELS :DEFM “Disquette absente.® 
LABELS :DEFM “Directory inexistant," 
LABEL1 LD HL,LABELS-1 1 Pointeur message. 
LABEL7 :INC HL 
LD 4, (HL) 
CALL TXT OUTPUT ji Affiche caractère. 


CP #2E Fin ? 


JR NZ, LABEL? 

CALL KM INITIALISE 
CALL KM WAIT CHAR 
JP DEBUT 

LD HL,LABELé-1 
FINC HL 

LD A, (HL) 

CALL TXT OUPUT 

CP W2E 

JR NZ, LABELS 

CALL KM INITIALISE 
CALL KM WAIT CHAR 
RET 

NOP 


Vide bufver clavier. 
Attend frappe d'une touche, 


LABELZ 
LABELS 


Retour Basic. 


Le nom d'un programme est stocké dans le catalogue avec les 
adresses des secteurs que doit charger le CPC pour l'exécuter. 
Ces adresses sont codées logiquement en blocs pour occuper 
moins de place. L'octet précédant chaque nom de fichier vaut 
&E5 s'il est effacé. PHOENIX charge donc les 4 secteurs du 
directory à l'aide de l'instruction &84 de la Rom-disque, rem- 
place les octets statuts d'effacement &ES5 par O puis sauve enfin 
le nouveau directory (instruction &85). 


N.B : POKE &AO27, 1 permet de travailler sur le drive B. Atten- 
tion, les routines d'erreur disque ne sont alors plus gérées à la 
lecture. 


19 [F HIMEM<>36863 THEN SYMBOL AFTER 125:MEMORY WBFFF:S °2 
YMBOL 123,8%60,810,878,4C,&7C, LOC, k76: SYMBOL 125,6,8, 430 
.Lbb, KE, HOD, IC: INK 9,11: BORDER 11:INF 1,0:FDR 1=4A600 
TO SAOBB:READ af$:FOKE i,VAL("&"+a$):NEXT:PEN 1 ELSE FO 
FE 4A033,2%84 
26 a$=CHR$(149):PAFER O:MODE 2:PRINT'PHOENIX V6.1 - "CH 5 
R$(164)" St}pnane LOUET 1987 . Riparation automatique d 
e directory." 
35 POKE LEE7E, 255: POFE UBE66, 2: PRINT: FRINT:PRINT"Insire 
z la disquette { r)g)nirer puis pressez une touche: _"CH 
R$(142);:CALL &BBOD:CALL SBBO6:FRINT CHR$(B)" * 
40 WINDOH 39,59,8,16:PRINT CHR$ (159) STRING$(19,154)CHR$ : 
(156) a$STRING$(19,32)a$a$"  LeCture...., fa$a$" R 
)paration.. fa$a$" Ecriture. “a$a$STRING$ (19 
22) a$CHR$ (147) STRINGS (19, 154) CHRS (153): LOCATE 17,3:FRI 
NT“#"* 
99 WINDOH 1,55,6,6:CALL &ADGG:MINDOW 1,80,1,25:LOCATE 1 ©A 
6: PRINT STRINGS (21,32 
bÔ a=FEEK(&BE74):1F a=%C4 THEN POKE 2A029.0 ELSE IF a=k :‘N 
44 THEN FOKE 4A029,2 ELSE IF a=4 THEN FOKE &4929,1 ELSE 
20 
75 GOSUB 96:FOKE 4BE78B,0:LOCATE 46,10:PRINT" ":LOCATE 4 “2 
6,11: PRINT“#";:FOR 1=49001 TO 49806 STEP 32:1F FEEK(i)= 
LES THEN 80 ELSE POKE i-1,0:NEXT 
80 PRINT CHR$(8)" "CHR$(10)CHR$ (8) “*":WINDOH 1,32,17,20 4 
:POKE LA9Z3,#85:GOSUB 99:CLS:HINDOW 1,80,1,25:LOCATE 1, 
17:PRINT"R)g)niration achev)e...":END 
93 FOR 1=1 TO 4:POKE LAGZB,at1-4:POKE VAU2E,2#1+WBE:CAL CY 
L'LAYIB:NEXT: RETURN 
196 DATA 21,17,A6,11,6,69,6,1,CD,8C,BC,FE,99,28,5S1,FE,C x 
4,28,62,CD,8F,BC,C9,41,21,33,A0,CD,D4,EC, Dÿ, 22,34, A0,79 
,22,26,A0,1E,0,16,1,E,C1,21,9,90,DF,34,A4,C9,84,0,0,0,7 
,44,69,73,71,75,65,74,74,65,20,61,62,73,65,6E,74,65,2E, 
7,44,69,72,65,63,74,6F,72,79,20,69 
119 DATA 6E,65,78,69,73,74,61,6E,74,2E,21,36,A0,23,7E.C :FD 
D.SA,BB,FE,2€,26,F7,CD,6,BB,CD, 6, BB,C3,0,A0,21,49, 0,23 
,7E,CD,5A,BB,FE, 2,28,3,C 3,78,A0,CD,0,EB,CD,6.EB,C9,0 @ 
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L'IMPRIMANTE 


CITIZEN 120 D 


VERSION AMSTRAD 


Bernard POISOT 
ea 


Les imprimantes sont des 
périphériques qui ont largement 
profité des divers progrès 
technologiques. 

La C 120 D est l’une de ces 
imprimantes modernes. Deux détails 
non M Latine : son prix, de l’ordre 
de 2000 F, soit un peu plus que la 
célèbre imprimante AMSTRAD DMP 
2000 et sa possibilité de s'adapter à 
de nombreux ordinateurs courants 
par simple échange de la carte 
d'interface, ce qui peut intéresser les 
clubs, par exemple. 


Caractéristiques : 

Matrice d'impression à 9 
points, dont seulement 7 
sont habituellement utilisés 
sur les CPC, le port de l'im- 


primante ne transmettant 
que 7 bits. Une possibilité 
nous est offerte de comman- 
der par logiciel la valeur du 


huitième bit. Cela nous per- | 


met de résoudre partielle- 
ment le problème du hui- 
tième bit et d'accéder au gra- 
phisme 8 ou 9 aiguilles. Les 
huit densités graphiques per- 
mettent les résolutions sui- 


vantes, en nombre de points 
par ligne : 

480, 576, 640, 720, 960, 
1152, 1920. 

A noter que le mode 9 aiguil- 
les ne permet que les modes 
simple et double densités, 
c'est-à-dire 480 et 960 
points. Ces divers modes 
permettent de trouver le 
meilleur compromis qua- 
lité/rapidité ou les meilleures 
proportions en recopie gra- 
phique d'écran. 


conpresse+ 126 coicnnes. 
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Formatage des pages : de 
nombreux paramètres con- 
cernant les formats sont pro- 
grammables. Ainsi, l'on peut 
déterminer l'interligne, l'es- 
pacement des caractères, la 
longueur de page (en nombre 
de lignes ou en pouces), les 
marges haut-bas/droite- 
gauche, les tabulations hori- 
zontales et verticales qui sont 
soit absolues, dont toujours 
aux mêmes lignes, soit rela- 
tives, par rapport à la position 
actuelle de la tête. |l est pos- 
sible de mémoriser simulta- 
nément 8 modèles de tablu- 


Vitesse d'impression : 120 
caractères par seconde en 
qualité normale, et 24 carac- 
tères par seconde en qualité 
courrier. L'impression est 
bidirectionnelle optimisée 
pour les qualités normales, 
c'est-à-dire que le mouve- 
ment de la tête s'effectue de 
la manière la plus rationnelle 
en fonction de la ligne 
actuelle et de la suivante, évi- 
tant au mieux les mouve- 
ments inutiles. Une com- 
mande est prévue pour forcer 


le fonctionnement unidirec- 
tionnel si nécessaire, une 
autre pour faire reculer la 
tête, par exemple pour ajou- 
ter un accent sur une lettre. 


| Jeux de caractères : en plus 
| des 96 caractères standard, 
| elle possède 11 jeux de 12 
caractères nationaux, les 
caractères graphiques et 
symboles spéciaux IBM et 
EPSON. Il nous est possible 
de définir nous-mêmes 
jusqu'à 94 caractères. Il n'y 
a malheureusement pas les 
caractères graphiques du 
CPC. 


Type d'écriture : à la mise 
sous tension, la C 120 écrit 
! en PICA, sur 80 colonnes, 
mais il est possible d'obtenir 
l'écriture ELITE, l'italique 
avec expansion ou compres- 
sion, ce qui nous donne le 
choix entre 40, 48, 68, 80, 
96, 136 et 160 colonnes. 
Elle connaît le mode inverse 
(blanc sur fond noir), les indi- 
ces, les exposants, les carac- 
tères gras, la double frappe 
et, bien sûr, la qualité cour- 
rier, le surlignement, le sou- 
lignement et la double 
hauteur. 


88 


italique, caractères gras et 
compressé. La dernière pos- 
sibilité offerte par ces tou- 
ches est le mode d'affichage 
transparent hexadécimal. 
Cela signifie que l'imprimante 
n'interprète aucune com- 


|! mande, elle se contente d'im- 


primer la suite des valeurs 
que le CPC lui envoie, d'une 
part en hexadécimal et d'’au- 
tre part en clair, c'est-à-dire 
les caractères correspondant 
aux codes. Autre caractéris- 
que intéressante : lorsque les 
valeurs correspondent à des 
codes de contrôles, elle affi- 
che l'abréviation de ce code 


facilement accessibles grâce 
à une trappe sous la zone de 
passage de la tête permet de 
choisir diverses options à la 
mise sous tension. On notera 
que ces options peuvent éga- 
lement être sélectionnées par 
programme en cours d'utili- 
sation. 

L'interface en question est 
un ensemble de circuits élec- 
troniques qui fait l'adaptation 
des signaux électriques entre 
l'ordinateur et l'imprimante. 
Elle se présente sous forme 
d'un boîtier muni d'un con- 
necteur qui s'insère dans un 
logement de l'imprimante. 
C'est l'échange de cette | 


tations verticales, ce qui mais le mode d'écriture com- 
s'avère très utile pour l'édi- pressé rend la lecture 
tion de formulaires de for- difficile. 


mats différents dans une 
même application. L'espace- 
ment des caractères peut 
être proportionnel. L'aligne- 
ment des textes, appelé jus- 
tification, peut se faire à 
droite, à gauche ou des deux 
côtés à la fois, la machine 
modifiant dans ce cas la 
valeur des espaces entre 
chaque mot. 


Sélecteurs de mode: un 
ensemble de 8 mini-interrup- 
teurs situés sur l'interface et 


tmp een 
gra ue 
Le 1920 

points 


Panneau de commandes : 
nous y trouvons les trois 
classiques touches de sélec- 
tion en ligne/hors ligne, 
d'avance d'une ligne et 
d'avance d'une page, ainsi 
que les voyants marche, fin 
de papier (il n'y a pas de 
signal sonore) et prêt. Les 
touches ont également des 
fonctions plus intéressantes. 
Elles permettent de choisir 


| 


l | 


ment tels que l'impression 
complète du jeu de caractè- 
res, un test de mémoire et 
d'alignement de la tête, de 
même que le choix d'un type 
d'impression parmi les 5 sui- 
vants : PICA qualité courrier, 


quil 
I 


pr ntthe. 
ff f! TN, 


ul 


\ 

A 
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divers modes de fonctionne- RSS 


interface qui permet la com- 
patibilité de la C 120 avec | 
d'autres micros. 


Type de papier : on utilise 
soit des feuilles ordinaires, | 
soit du papier à picots. Le | 


QUE 
(LIL 


| 


qu 


passage d'un type à l'autre 
se fait en installant le guide 
approprié. Le papier en bande 
peut s'introduire par l'arrière 
ou par le dessous de l'impri- 
mante. Un chargeur feuille à 
feuille est disponible en 
option. 

Entretien : la durée de vie du 
ruban est de 2 millions de 
caractères (l'ouverture de la 
cartouche du ruban a révélé 
qu'il est très long) et la tête 
d'impression est annoncée 
pour 100 millions de carac- 
tères. La moyenne de temps 
de bon fonctionnement est 
de 4500 heures pour le reste 
de la machine. Aucun entre- 
tien n'est requis et il suffit 
d'éviter la poussière et 
l'humidité. 


Notice : la notice est en vrai 


| français, c'est dire qu’elle est 


exempte des erreurs que l'on 
voit trop souvent dans les 
modes d'emplois lorsque la 
traduction est baclée. Elle fait 
souvent référence à de nom- 
breuses marques d'ordina- 


| teurs, mais jamais à AMS- 


TRAD. A croire qu'AMS- 
TRAD n'existait pas lors de la 
rédaction du manuel. Cela se 
confirme d’ailleurs par l'ajout 
d'une mauvaise photocopie 


MODEMS ATTEL INTELLIGENTS 


| manière de 


qui est destinée à nos pau- 
vres CPC. Elle explique la 
raccorder les 
appareils, mais présente un 
petit défaut : vu que le con- 
necteur peut se brancher 
dans les deux sens, on nous 


| indique que le câble de liaison 


comporte un fil de couleur 


| sur l’un des côtés, ce qui va 


nous servir de repère pour 
trouver la bonne orientation 
de la prise. Mais Ô malchance 
(ou plutôt manque de sérieux) 


| le câble en question com- 


porte un fil de couleur de 
chaque côté. Le peu d'infor- 
mations que nous apporte 
cette photocopie est donc 
inutile car le repérage n'est 
plus possible. Voici comment 
procéder, pour ceux qui se 
trouveront face à cette situa- 


| tion : l'intérieur de la prise qui 


se branche sur l'imprimante 
comporte quelques numéros. 
Le fil qui porte le numéro 1 
est alors identifié et c'est ce 
fil qui doit se trouver à gau- 
che du CPC lorsque nous le 
voyons côté clavier. Une fois 
le branchement vérifié, vous 
avez intérêt à repérer le côté 
HAUT du câble (en l'écrivant 
ou en collant une étiquette 
sur le connecteur), pour ne 
plus avoir ce problème si 


vous devez la débrancher un 
jour. 


Mémoire tampon (ou buf- 
fer) : d'une capacité de 
4 kilo-octets. Des comman- 
des permettent de la vider, 
d'effacer le dernier caractère 
ou d'effacer une ligne. 


Conclusion 


La CITIZEN 120 D comporte 
de nombreuses qualités, 
dues à son développement 
récent, qui sont : la facilité 
d'accès et d'échange des 
pièces sujettes à usure, la 
facilité d'introduction du 
papier et de mise en place 
des systèmes d’entraîne- 
ment, la rapidité, la qualité et 
la diversité d'écriture, la 
capacité de la mémoire tam- 
pon, la possibilité de redéfi- 
nir des caractères, le large 
éventail de possibilités diver- 
ses, un bruit acceptable, un 
prix concurrentiel et la com- 
patibilité multiple. Son défaut 
majeur est de ne pas être 
totalement compatible avec 
les CPC. Les codes de com- 
mandes du BASIC AMS- 
TRAD ayant des significa- 
tions différentes de ceux de 
l'imprimante, cela provoque 
quelques désagréments. Si, 


par exemple, vous utilisez le 
code 24, commandant l'in- 
version des couleurs, obtenu 
par le caractère CONTROL et 
symbolisé par un X souligné 
et surligné, vous provoquerez 
l'effacement de la ligne lors 
d'un listing car CHRS$(24) 
commande à l'imprimante un 
effacement de ligne. De plus, 


les caractères graphiques | 


propres aux CPC n'existent 
pas. Il faut dire qu'ils ne sont 
de toute façon pas transmis 
par le port imprimante, mais 
nous aurions tout de même 
pu les utiliser, au lieu, par 
exemple, du jeu IBM. La 
compatibilité C120-CPC ne 
se justifie que par le fait que 
les deux appareils travaillent 


au standard EPSON, ce qui | 


fonctionne parfaitement pour 


la plupart des logiciels du | 


commerce, y compris les uti- 
litaires graphiques. L'impri- 
mante qui a servi pour ce 


banc d'essai a un défaut de | 
taille : un décalage aléatoire 


entre les lignes lors d'utilisa- 
tion en mode graphique. 
Mais ce défaut n'est pas 
général à tous les modèles et 
si vous choisissez une CITI- 
ZEN, vérifiez-le en deman- 
dant un essai de recopie 
d'écran avant d’'achetere 


POUR FAIRE COMMUNIQUER VOS 
MICROS. 


… FULL DUPLEX 


300 et 1200 Bps 
u NUMÉROTATION 


AUTOMATIQUE 
us COMPATIBLES 


HAYES 


= SYNCHRONES/ 


ASYNCHRONES 


Leurs SOFTS 


le} 
Û 


complémentaires" 


de communication “faciles” 
pour PC et COMPATIBLES vous offrent : 


sm procédures de communications 


automatiques 


s connexion à TRANSPAC et sites 


centraux 


s transferts de fichiers avec ou sans 
procédure de correction d'erreurs 


= émulation ADM3A, VT - 52/100/220 
s menus déroulants 

# gestion de ligne 

s apprentissage intelligent 


allei 


DISTRIBUTEURS 
TÉLÉCOM INF 


r-Hug 


F 


ACTIONS 


Christian PINET 


Aujourd'hui, plutôt que d’épargner, on achète des ac- 
tions. Mais pour suivre les tendances du marché, il faut 
s'intéresser de près à ce qui se passe en Bourse. Ce pro- 

ramme vous aidera, j'espère, à bien gérer votre porte- 


| Valeur AIN 
| Action 


COURS MAXI 


COURS MINT 


Conseils de saisie 


— Les remarques ne sont là que pour 
indications. 


— Ce programme fait appel à l'utilitaire 
de recopie d'écran de PASCAL HIGELIN, 
paru dans CPC numéros 5 et 19 


AVR NOMBRE : 10 
: EM 13 : 1508 


Semaine 
13 


(COPY.BIN dans ACTIONS). Si vous ne 
voulez pas d'impression, mettez les 
lignes 90 à 110 en commentaires. Les 
paramètres d'impression ont été initiali- 
sés pour une DMP2000. Vous pouvez 
les modifier si besoin est. Le fichier de 
stockage des valeurs saisies s'appelle 
ACTION8S7. 


Utilisation 


Détail des options du Menu : 

1 - Tout d'abord, il faut saisir le nom, la 
valeur d'achat ainsi que le nombre (0 
pour suivi uniquement) des actions cons- 
tituant votre portefeuille. 

2 - Chaque semaine, il faut saisir la valeur 
des actions (au jour de votre choix) 

3 - Pour la modification, s'il ÿ a eu des 
erreurs de saisie 

4 - Pour la visualisation globale des 
valeurs des actions au fil des semaines. 
5 - Visualisation sous forme de courbe 
de l’évolution de chaque action. 

6 - Valeur du portefeuille (actions dont 
le nombre est différent de O) semaine 
courante. 

7 - Fin (avec une demande de sauve- 
garde du fichier action 87 si des modifi- 
cations ont été faites). 


Notes 


— Pour les actions du portefeuille (nom- 
bre différent de O) il est préférable de sai- 
sir la valeur de la semaine courante pour 
éviter d'avoir un bilan erroné. 

— Les courbes représentent l’évolution 
d'une action de la semaine O (valeur 
d'achat) à la semaine courante. 

— On peut réutiliser le même nom pour 
une action dans la mesure où on en 
rachète à une valeur différente (il faudra 
alors saisir 2 fois la valeur courante de 
l'action par semaine). 

— Les frais d'achat et de vente ne sont 
pas pris en compte (car ils sont variables 
suivant les banques). À vous de prévoir 
ou de modifier le programme en 
conséquence. 


———— + 


106 PRINTER,7,27,49,27,42,4,127,2,1,16,7,0,1:G60T0 120 :: 
LA 119 CLS:MEMORY &922F:LOAD "ICOFY,BIN"':CALL &9449:G0T0 Î 


16 ‘ SUIVI D'EVOLUTION D ACTIONS 


2 ‘ FEVRIER 87 

36 © EUT : PERMETTRE L'EXAMEN RAFIDE 

49 DE L'EVOLUTION D'UNE OÙ 

56 FLUSIEURS ACTIONS SUR i 

ëà MOIS OÙ SUR L'ANNEE 

76 

89 ‘---- CHARGEMENT RSX D'IMPRESSION -—-—- 


98 ON ERROR GOTO iiû 


90 


LE 56 


"VOIR CPC No 5 et 19 


LC 124 MODE 2:INK 6,13:INE 1,0 5 
LD 36 ON ERROR GOTD 1186 
LE 148 GOSUB 1810 ‘Vers chargement fichier actions 


LF 159 ‘--—-—- Menu principal ----- FÜ 
LG 168 CLS JE 
LH 176 PRINT: PRINT: PRINT: PRINT: PRINT GE 
NU {80 PRINT" MENU" t 


198 PRINT 


NT 

266 PRINT  ‘ L'A disssssssssmesseuesssin: 5 
aisie Nouvelles Actions“ 

219 FRINT  ‘ RES 5 
aisie Hebdomadaire des Cours" 

226 FRINT LS issssiestinesemessessesees 5 
aisie et Modification par Action“ 

226 PRINT * PAS ssssssceenesscosscces à 
ffichage Tableau Recapitulatit" 

246 FRINT ‘ ES disssessicessserséeseveuses 5 
raphe par Action 

254 FRINT  ‘ 6 asssssniescricenmmesenses E 
ilan Forteteuilie" 

2ëë PRINT * LT sssrenosegenrenaceussuse F 


in" 
= PRE ü 


276 LOCATE 1,24: INFUT'Guel est votre choix : 
286 


: 50 


ON 50 G0TD 1114,1980,1900, 300, 866, 2774, 296: GOTO 276 ; 


296 GOSUE 2156:MODE 1:END UK 
08 Tableau recapitulatit----- #RD 
316 CLS: LOCATE 16,5:FRINT "No DERNIERE SEMAINE SAISIE 4KC 
AC à 

328 LOCATE 14,16: INPUT "No SEMAINE DE DEBUT VISUALISATI 3TC 
ON':DEBSEN . 
3236 IF DEBSEM > *Y THEN LOCATE 14,1G:FRINT * L vw 
MFOSSIELE FOR 1=1 TO SOU:NEXT 1:G070 32 

ÿ 


346 DEBACT=I 
356 FINSEM=DEESEM+6:F INACT=DEBACT+14 
Jéÿ CLS 
374 BORDER 14: GRAPHICS PEN 1 
386 ORIGIN 6.0: DRAW 0,395: DRAW 625,295: DRAN 635,4: DRAW 
CA 
396 ORIGIN 6,360: DRAW 615,4 
400 ORIGIN 85,6:DRON 0,395: 0RIGIN 55,4: DRAW 4,395:FOR I 
= TO S:ORIGIN 1635+(1478).6:DRAW D, ZS5:NEXT I 
4iè LOCATE 3,2:PRINT'ACTION":: FOR I=DEESEM TO FINSEM:LD 
CATE 14+(9.7#(I-DEBSEM) ;,Z:PRINT'SEMM: Ii MERT I 
426 FOR a=DEBACT TD FINACT 
30 IF ACT$(ai="" THEN 474 
444 LOCATE £,2+((a-DEBACT+1)#2) 2 PRINT MID (ACT#(ai,1,91 
:FOR s=LEBSEM TO FINSEM:IF valact(a,si=6 THEN do 
450 LOCATE 12+116,2+15-DEBSEM) ).Z+ita-DEBACT+11#2) :FRIN 
T'USING'####, #4": VALACT 4,51 
dsà NEXT 5 
478 NEXT a 


AB LOCATE 3,25:PRINT CHR$(Zdi:" (Dimeress,Lepiac Semai : 


ne ('iCHRSESAT it CÉCHRGIZATH: Deplac Actions ("0 
HR$(241):"3 C'iCHRE (246): "1, (ENTER) pour Menu “:CHR$(24 
} 

498 
366 
918 
328 
920 
346 
390 


2$=INEEYS: IF 2$="" THEN 458 

IF ASCI2$3=247 THEN 586 

IF ASC(z$:=243 THEN GOTO 606 

IF ASC(z$:=241 THEN GÜTO 626 

IF ASC(z$)=246 THEN GOTO 646 

IF ASC(z$=13 THEN 156 

IF UPFERS 242" I" THEN (TEXT. 1,88, 1,34 


#6E 


:GÀ 


:UD 
:W4 
:BÀ 


,l! 
ëV 


2EM 


>VK 


VF 
:RK 
>UB 


>MT 


?FJ 
#NE 
FH 


VE 
FUN 
FT 
>wW 
»Yx 


ëTJ 


KP 


F 


Séë GOTD 494 :AÀ 
576 GOTD 154 *1E 
586 DEBSEM-DEBSEM+7: IF DEBSEM : vvy-6 THEN DEEGEM=vy-6: 1 HG 
F debsem < 1 THEN debsem=i 
556 GOTO 354 #1] 
&4g DEBSEM-DERSEM-7:1F DERSEM © 7 THEN DEBSEM=I un 
616 GÜTO 356 ?1E 
624 DEBACT=DEBACT+19:IF DEBACT : KX-9 THEN DEBACT=4{-9: :HB 
IF DEBACT + 1 THEN DEBACT=1 
&36 GOTO 354 >ID 
b4@ DEBACT=DEBACT-16:1F DEBACT < 19 THEN DEFACT=1 :RQ 
ë5% GOTO 354 32F 
GED ‘----- Courbes graphiques ----- #TC 
74 GÜSUE 1446 ‘appel affichage liste des actions *0D 
684 LOCATE 2,23: INPUT “Entrez le No de l'action :“:a 2EV 
696 IF axx THEN 686 ELSE IF a=4 THEN a=i FF. 
766 CLS:ORIGIN 6,6: MOVE 46, 266: DRAW 633,206 trace ‘KW 
de i axe des X 
718 MOVE 46,6:DRAW 44,395 trace de i axe des :TF 
Y 
724 LOCATE 1,13:PRINT USING'####':valact(a,#i ‘valeur :NJ 
d'achat 
754 LOCATE 7, {:FRINT'Valeur":LOCATE 7,Z:FRINT'Action®  :E* 
746 LOCATE 72,1Z:FRINT ‘Semaine" | #2T 
754 LOCATE 76. 14:FRINT vy UE 
768 ORIGIN 0.4: MOVE 44,266 #UF 
774 IF valmini(ai::4 THEN difff=valactia.ä)-vaiminiiar ?0P 
ELSE diffz=4 
78ù ditfi=vaimaxitai-valact(a.#):IF ditf2:diffi THEN di NU 
ffi=ditt2 
196 IF diffi=ù THEN diff=6:6010 864 3CV 
864 coeffy=(154/diffi} #RÈ 
81 coettx=INT (ST; vi coett pour ecart entre le :TF 
5 points 
826 diff=6 ‘cours de ji action - valeu :PF 
r d achat 
836 FOR 5=1 TO vv :LM 
849 IF valact(a,si=à THEN 869 ‘valeur non fournie on ut :WT 
ilise la precedente diff 
856 diff=valact(a.si-valact (ad) ‘calcul ecart/axe EN 
des X 
860 DRAW di+icoeftx#s).206+(diff#coettv! +JÙ 
874 NEXT 5 QD 
884 LOCATE 1.6:FRINT USING"#### "1: valmasi (a) 2MZ 
296 LOCATE 7,6:FRINT “COURS MAXI eCL 
gg LOCATE 1,19:PRINT USING"####":vaimini (a) #NJ 
914 LOCATE 7,19:FRINT "COURS MINI" #DK 
929 LOCATE 26,1:FRINT CHR$i4js" "iMID#(act$(ai.1,13h:" AZ 
S28 LOCATE 45,1:FRINT CHR$ (24) : NOMBRE :“snbract (a) WE 
G4ë LOCATE 32,2:1F diffi@ THEN FRINT "PERTE SEM"; vyi "se" EG 
sdiff#nbract(a) ELSE PRINT "FLUS-VALUE SEM"; vysfifidif 
+#nbract (a) ‘ 
958 LOCATE 7,25:PRINT CHR$(24):" (Timpression, Action { *KA 
“sCHRS (248): ") suivante (":CHR$(241):") precedente, ENT 
ER pour Menu “::FRINT CHR$ (24) 
966 2$=INÉEYS:IF 2$= "" THEN 966 >YU 
976 IF UFFER#$(2$)="I" THEN COLOR, 0,9,6,0,6,4,6,8,6: C0 >RF 


91 


FY,6,638, 406,26, 1,1:PRINT#E,CHR# (121: :G0T0 966 

986 IF ASC(z$)=244 THEN a=atl:IF ai=xx THEN 764 ELSE a= 
a-1:G60T0 966 

996 IF ASC(z#$=241 THEN a=a-1:1F a:6 THEN 700 ELSE a=a+ 
1:60T0 96û 

1866 GOTO 156 

1418 ‘---- Chargement du fichier ÂctionE7 ---- 

1426 OFENIN'action87 

1476 INFUT#9,xx ‘Recup nbre d actions suivies 

1644 INFUT#9,yy Recup nbre de semaines stockees 

1096 um=s+10s vvmevv HG DIM act$lixmi ,valact (xxm, vymi, 
nbractixxmi,valmasi(xxmi.valminitsxm) marge de securi 
te +16 actions pour lüsemaines de sa1sie 

1468 FOR a=i TO x* ‘chargement par action 

1976 INPUT#S,act$lai ‘recup du nom de À action 

1686 INPUT#9,nbract (a) 
tees 

1496 FOR s=% TD yy ‘et par semaine 

1196 INPUT#9,valact(a,s) ‘de la vaieur correspondante 


1iié IF s=4 THEN vaiminitai=valact(a.s):vaimaxita!=vala : 


ct(a,s):60T0 1154 


1126 IF valactia,si:valma#itar THEN vaimaxita;=vaiactia : 


,5) ‘recup maxi 
1136 IF valactia,s}=6 THEN 1156 


1146 IF vaiact(a.siivaimini(at THEN vaiminitai=valact(a : 


.5) Fecup mini 
1154 NEXT 5 
lié NEXT a passage a 1 action suivante 
1174 CLOSEIN: RETURN 

1184 ‘---- Gestion des erreurs ---- 

1196 IF ERR=G THEN 1274 


1204 IF ERR=32 AND DERR=146 THEN 1216 ELSE 1254 


1216 CLS:LOCATE 12,12: PRINT'FICHIER ACTIONS INEXISTANT : 


fe LOCATE 16,14: INEUT “CREATION FICHIER (D/N: "14 

1229 IF UPPER$(z$)="0" THEN CLS:LOCATE 12.12: INFUT No 
SEMAINE DU DEBUT DE LA SAISIE 0 a 52 s"eyyivy=vy-{iDi 
M act$ (26) ,valact (26,20) ,nbract (26) :RESUME 1176 

1236 IF UFPERS(z#$)::"N" THEN 1214 ELSE CLS:LOCATE 6,12: 
PRINT “Inserer la disquette contenant ie fichier ACTION 
87":LOCATE 14,14:FRINT "Appuvez sur une touche“ 

1249 IF INEEY$="" THEN 1246 ELSE RESUME i016 


1256 FRINT'Erreur numero":;ERR:" Ligne"; ERL: FOR T=1 TD 5 : 


Gi: NEXT 

1264 RESUME NEXT 

1274 IF xxsxum THEN xx=xxm ELSE vy=vym 
derniere saisie 


1286 CLS:LOCATE 12,12:PRINT'TROP DE SAISIES FAÎTES ---; 4 


SAUVEGARDE FUIS RUN A NOUVEAU" 


1296 LOCATE 15,14:FRINT'DERNIERE SAISIE NON FRISE EN CO : 


MPTE" 

1306 GOSUE 2216:END 
1314 
1326 CLS 


vers sauvegarde 
Rajout actions 


1336 LOCATE Z,16: INPUT" ( RETURN si FIN : Nom de la nouv : 


elle action :":act$ 


1349 IF act$="" THEN i66 pas de nouvelle action 


1256 LOCATE 2,12: INPUT" OBLIGATOIRE ) Valeur d'achat 0 : 


92 


“recup du nombre d'actions ache : 


suppression *: 


#ED 


26V 


#EC 
3XE 


Ti 
Su 


LA 
‘LD 
HN 


depassement de capacite Qt 


:DE 


u cours actuel :"s;actr 

1369 IF actr=ù THEN 1156 

1376 LOCATE 2,14: INFUT®( FACULTATIF 
chetees :":nbr 

1284 fmaj=1 ‘mise à jour donc sauvegarde 
1396 xxzxx+iiact$ (xx) =UPPERS (act): valact (xx, 0)=actr 
stockage valeurs 

1466 valmini(xx)=actrivalmaxiixxi=actr 

1419 IF nbr=6 THEN 1426 ELSE nbractixx}=nbr 

1426 GOTO 1326 

1439 ‘---Affichage de la liste des Âctions--- 

1446 CLS: ve: x=û 

1454 LOCATE Z,2:FRINT “No ACTION" 

14ë8 FOR a=i TO xx 

1474 y=y+iiif v=lé THEN v=bixzx+l:GOTO 1476 


; Nbre d actions a 


1486 LOCATE 2+(4#141,24(v#2): PRINT CHR$(24i:a;CHR#124i: A 


“ MiMIDS(act$(ai,1,9) 
149% NEXT 3:RETURN 
1506 
1514 GOSUE 1444 

actions + No 
524 LOCATE 2,27: INFÛT "No de 1 action a modifier :"3;a 
1539 IF a=6 THEN GOTO 166 

154% IF a:xx THEN 1526 

1559 CLS 

1564 WINDOW#:, 1,86, 1,22 

1576 LOCATEHZ,2, 2: PRINT#S,CHRS (24): act$ (ar: CHR$ (24) 
1584 LOCATE#Z, 26,2: PRINT#£, "Nombre :":nbract (a) 

1599 LOCATE#S, 49,2: FRINT#2, "Valeur d'achat :"svalact(a, 
CE 


‘attichage de la liste des 


1604 j=G:k=G:FOR s=1 TO yy:LOCATER#Z, 2+ (#14 ,4+k:FRINT# : 


2, "Sem": : PRINTH#2 USING" #4": Ss : PRINTHS,UGING'A#H#H##, HR"; va 
lactia.s)1:PRINT#2, "0": g=jtiiIF 325 THEN 3=6:k=k+1 

1éié NEXT 5 

1624 LOCATE 1,24:FRINT STRINGS 179," 

1634 LOCATE 1,25:FRINT STRINGS (79, 


ié46 LOCATE 16,24:FRINT" (Suppression de l'action iM)od : 


ification des valeurs" 
1654 LOCATE 5,25:FRINT"(C)hangement nom (Rietour liste 
(Nombre difterent (Impression 

1664 z$=UFPERSCINEEYS): IF 2$="" THEN 166% 

1676 IF 2$="5" THEN 1734 
1684 IF 2$="M" THEN 1829 

1694 IF 2$="C" THEN 1918 
1706 IF 2$="N" THEN 19136 

1716 IF 2$="I" THEN 195% 
1724 GOTO 1514 

1738 

RINT CHR#(z4)} 

1749 LOCATE 5,12: INFUT"Vous confirmez la suppression de 
l'action (D/N)",2$:1F UFPERS(z$)= "D" THEN 1756 ELSE i 

954 

1756 IF a=xx THEN 1804 

1766 FOR 1=a TO xx-1 


‘retour affichage liste 


‘decalage des autres actions 


CLS:LOCATE 25,142:PRINT CHR#(24):" iactéials" “:F 706 


#RJ 
#DX 


?XE 


" #AT 


#62 


?ME 
ET 


>PU 
NF 


1779 act$(ii=act$(i+i)snbract{ii=nbract(iti): FOR j=6 TO :CF 


yy:valact(1,ji=valact(i+i,j):NEXT j 
1784 NEÏXT 1 


#ME 


1796 act$(xx)="" 
1866 xx=xx-1:fmaj=i ‘nombre d'actions restantes 
1819 GOTO 1566 
te 

1826 LOCATE 1,24:PRINT STRINGS (46, 
INT'Return pour autre modif" 

1834 LOCATE 1,25:FRINT STRING$(79," 
T "No de semaine a modifier :":5:1F s=û THEN GOTO 1626 
ELSE IF s:vy THEN FRINT'Semaine non saisie":FÜR 1=1 TD 
SUU:NEXT 1:G0T0 1876 | 


1844 LOCATE 3,25:FRINT' Valeur semaine":s:: PRINT USING"# : 


#h#.Hh':valact (a,s):LOCATE 36,25: INFUT "Entrer nouvelle 
valeur où keturn :":vaiact 


1854 IF valact=6 THEN GOTD 1824 ELSE valactia,s/=valact : 


:fma=i 
186ù IF valactia. 


43} 


1874 IF valactia,si:vaimini(a! THEN vaimini(ar=valact(a : 


5) 

1884 n=INTis/Si+iimzineSi-stIF m=5 THEN k=n-Z:i=4: 6070 
1944 

1894 E=n-i:1=4-m 


1994 LOCATEHS, 2+ (14141, 44E: PRINTHEI, CHARS (T4: : "Sem 
INTH2, USING'HHHK. hi valactia,s):FRINTHS, CHRS 24: 
in:4 

1914 LOCATE 1.24: PRINT STRINGS EN, 
NT'Return pour autre modif" 

1924 LOCATE !,2 
T "Nouveau nom pour L action s'sactéiiF act$="" THEN js 
26 ELSE act$la=UFFERS'actgi: fmaj=!: 8010 ! 1534 


: BOTC 


:LOCATE 35. 


pour afticher la nouvelle lis » 
“}:LOCATE 46.34: PRI : 


"):LOCATÉ 2,24: INFU XV 


s):vaimast(a! THEN vaimaxita'=valactia :F2 


lsssepR 


SR FRE À 


SPRINT STRINGS 179," I: LOCATE 3,24: INFU :DP 


1959 LOCATE 1,24:PRINT STRINGE (60, Vis LOCATE 95, Zi FRI :XN 


NT'Return pour autre modif! 


1946 LOCATE 1,25:PRINT STRINGS (79, is LOCATE 3,24: INPU 2 


T “Nombre d'actions detenues :“snbract: IF nbract=nbract 
} THEN 1626 ELSE nbractia)i=nbract:fmai=1:G0T0 1554 

1956 :TEXT.1,86,1,27:G6070 1626 

196% ---- Saisie hebdomadaire ---- 

1578 CLS 

1988 WINDOW#:, 1,86,4,6 

1994 FRINTHZ,CHR# (24) 


2606 FOR 1=1 TO ZeLOCATER#S, Î 1: PRINTRZ, STRINGS (BE, © 


:NEXT 

2614 LOCATE#2,5, 2: PRINT#2, "ACTION" 
2824 LOCATE#2, 22, 2: PRINT#2, "SEMAINE" 
2624 LOCATE#2,55, 2: FRINT#3, "COURS" 


294 LOCATE 5,Z2:FRINT "Si aucune valeur n est entree ,.1 


a saisie hebdo n est pas prise en compte” 

2096 vyzvy+i semaine de 541518 
2666 FOR azi TD xx 

2474 LOCATE 3,&+a: PRINT sact$ta) 
2484 LOCATE 21,6+a: PRINT sv 
2496 LOCATE 54,6+a: INPUT: vaiact 
2106 IF vaiact=6 THEN 2158 
2119 valactia,vyi=valact 


nom de } action 
‘semaine de 5431518 
valeur de | action 


stockage valeur saisie 


2126 IF valact(a.yyi':valmaxita) THEN vaimaxilai=valactt : 


a, yv} 


2134 IF valactia,vyr:valminitar THEN valminiia:=valact: ; 


a,yy) 
2146 fsaisie=i:#fmaj=i 


215% NEXT a 
2166 IF fsaisie=b THEN vyy=vv-i 
e semaine 

2176 fsaisie=û flag de saisie a zero 
2186 PFRINT#2,CHR$(24):G07T0 154 ‘retour au menu 

2196 ‘---- Sauvegarde fichier ACTIONE7 ---- 

2266 CLS 

2216 IF fmaj=6 THEN RETURN 

2224 LOCATE 19,16: INFUT'SAUVEGARDE (O/Ni":z$ 

2236 IF UFPERS(z$)="N" THEN RETURN 

224% IF UPFERSiz$)::"0" THEN 2224 

2254 OFENOUT "actionë7 
2266 FRINTH#S, xx 

2276 PRINTHS, vy 

2266 FOR a=i TD xx 

2296 FRINTAS. act$ ia! 
2366 FRINT#G,nbract ai 
etees 

216 FOR s=ù TO vy 

r d achat 

2334 FRINTHS,valactia.s! 


sauve le nom de } action 


semaine # Pour 
sauve les vaieurs 
valeur suivante 


action suivante 
fermeture fichier 


2334 NET s 
2744 NEXT a 
2354 CLOSEOUT 
236% RETURN 


2370 
2584 CLS:LOCATE 15,Z:FRINT "Semaine “ivvi" Votre portef 2:44 
euillie se compose de“ 

2596 totaux=hitotai=tik={: FÜR a=i TO xx 
2468 IF nbractiai=à THEN 245% ELSE LOCATE 5. 4+k: PRINT n : 


‘---- Bilan Comeiet de la situation ---- 


bractia):LOCATE 9.4+k: PRINT "Actions" :LOCATE 19,4+E:FRIN 


T'act$ia} 


2414 LOCATE 49,.4+k:difé=valactia.vy)-valactia.#riIl gif : 


ss ELSE FRINT'Gain :": 
2LOCATE 25,.4+k: PRINT “COUT 


#8 THEN FRINT'Ferte 
2426 c=valactia.#isnbractia; 
="sci")":totaux=totaux+c 

24736 b=diff#nbract (a; :LOCATE 57,44k: 
+0:LOCATE 66,4+k: PRINT USING'+4#4#4.#"iDaæl0bices PRINT VA 


2446 E=k#1 
2450 NEXT à 


2464 LOCATE 26,5+k:PRINT'SDMME INVESTIEZ":LOCATE 41,5+k WF 


:PRINT totaux 
2476 LOCATE 29,6+k:1F total:ä THEN FRINT'TOTAL 
UE:" ELSE PRINT"  FERTE :" 


PLUS-VAL 


2486 LOCATE 57,6+kE:FRINT totai:LOCATE 66.6+k: PRINT USIK : 


G'+#hh.#'itotal#io/totauxs: PRINT MAS 

2494 LOCATE 25,25:PRINT CHR$(Z4ist (Impression 
} pour Menu “:CHR$ (24: 

250@ z$=INEEYS:IF 242" THEN 2546 

2514 IF UPPER (ZI C:"I" THEN 166 

2520 PRINTAG. CHR# (27): 9: TELT. 1.86,1.24:PRINTRE. 
13}: 

2516 GOTO 1éé 


flags saisie et mise à jour mis : 


‘pas de saisie pour cett :\ 


stockage valeu :L: 


de | action : 


PRINT bitotal=total à. 


(ENTER 


CHREC 


2FV 
sauve ie nombre d'actions ach ‘hi 


“WE 


LA 


UN PETIT TOUR 
DEUX PETITS TOURS 
TROIS PETITS TOURS 
ET PUIS S'EN VA. 


Yves GERAULT 


PE ous avons maintenant à notre dispo- 
sition tout un arsenal de possibilités 
pour résoudre nos problèmes : des fonctions, des procédures, mais il nous manque 
des outils pour faire exécuter une partie du programme plusieurs fois ou pour ne 
pas faire exécuter une autre partie en fonction d’un critère évolutif. Il nous man- 
ue les instructions de boucles (les itérations) et les instructions de tests (les débran- 
chements). C’est à cela que nous allons consacrer cet article. 


LES INSTRUCTIONS INSTRUCTION CASE 
DE DEBRANCHEMENTS CONDITIONNELS Cette instruction est du type : SUIVANT QUE LE TEMPS EST : 
Elles sont au nombre de deux. La première est proche du ON ENSOLEILLE ALORS J'IRAI À LA PLAGE, PLUVIEUX ALORS 
<variable> GOTO xx,yy,zz,.... du BASIC, la seconde est pro- J'IRAI PECHER DES GRENOUILLES, NEIGEUX ALORS J'IRAI 
che du IF .… THEN … ELSE, mais en beaucoup plus perfor- FAIRE DU SKI, DANS LES AUTRES CAS JE RESTERAI CHEZ 
mant et en beaucoup plus agréable à l'œil, ce qui permet de MOI. Cette phrase peut bien sûr être représentée de façon 
faire des choses beaucoup plus complexes en toute simplicité. plus parlante par le schéma de la figure 1. Nous sommes déjà 
très loin des possibilité très sommaire du BASIC, mais PAS- 
Les concepteurs du langage PASCAL ont essayé de faire res- CAL peut encore mieux faire. 
sembler leur langage avec celui que le scientifique utilise dans H n'y a aucune raison pour limiter à une action ce que nous 


langage PASCAL en français pour définir nos ordres, il nous pourrait commencer par SUIVANT QUE LE TEMPS EST : 


son langage courant, nous allons donc pouvoir ‘’PARLER"' le | pouvons faire dans chacun des cas. Le début de ma phrase 
suffira après de traduire cela en anglais et le tour sera joué. ENSOLEILLE ALORS J'IRAI A LA PLAGE, JE ME BAIGNERAI, 
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— Figure 1 — 


— Figure 2 — 


— Figure 4 — 


VRAI 


FAUX 
VRAI 


— Figure 5 — 


VRAT 


VRAI VRAI 


FAUX VRAI VRAI 
VERT FAUX VRAI 
FéUX FAUX FAUX 


JE ME BRONZERAI, PLUVIEUX... La figure 2 rend compte de 
facon schématique de cette formulation. Pour un cas donné 
<ENSOLEILLE>, nous avons trois actions à effectuer. La 
structure de BASIC ne permettait pas d'accomplir cet exploit, 
par contre PASCAL le permet grâce à sa notion de BLOC. 

Passons maintenant à la traduction en PASCAL TURBO et, 
pour cela, écrivons un programme qui admet en entrée un chif- 
fre et qui écrit sur l'écran le mois qui lui correspond en toute 
lettre (programme 1). 

Nous voyons que le mot clef qui introduit l'instruction est le 
CASE. Ce mot clef est suivi d'identificateur qui peut être de 
type INTEGER, BOOLEAN, CHAR..., mais qui ne peut pas être 
du type REAL. Cet identificateur est suivi du mot réservé OF. 
Nous venons de définir l'entête de notre instruction, il est à 
noter que celle-ci ne se termine pas par un <;>. 

Aligné sur notre mot clef CASE se trouve, quelques lignes plus 
loin, le mot clef END suivi de son <;> signalant la fin de notre 
instruction. Entre ces deux mots clefs se trouvent 13 BLOCS 
dont 12 sont de structure identique et 1 d’une structure dif- 
férente qui peut ne pas exister mais alors cela peut, dans cer- 
tains cas, donner des erreurs très difficiles à déceler. 

Les 12 blocs identiques sont, bien sûr, les 12 mois de l’an- 
née qui sont traités de manière similaire : le contraire serait 
logiquement inconcevable. Chaque bloc est composé d’une 
valeur QUI DOIT ETRE DU TYPE CONSTANTE suivi du sépa- 
rateur <:2>, lui-même suivi de l'instruction à exécuter (écrire 
sur l'écran le mois adéquat), elle-même suivie du séparateur 
<;> qui sépare chacun des blocs. Cependant, pour des rai- 
sons que nous n'expliciterons pas ici DANS LA MESURE OÙ 
IL EXISTE UN DERNIER BLOC D'UN TYPE DIFFERENT DES 
PRECEDENTS, LE DERNIER DES BLOCS IDENTIQUES NE SE 
TERMINE PAS PAR LE SEPARATEUR <;>. 

Le dernier bloc est introduit par un mot clef particulier ELSE 
suivi par l'instruction à exécuter. Vous pouvez noter que cette 
instruction devrait se terminer par un séparateur <;>, mais 
que dans la majorité des cas, les programmeurs ne le met- 
tent pas du fait d'une subtilité du PASCAL : l'ensemble 
<blanc > suivi des trois lettres <e> <n> <d> suivi d'un 
<blanc> est considéré par le compilateur comme un sépa- 
rateur, cela pour gagner quelques petites millisecondes à la 
compilation, cet avantage est moins nécessaire en PASCAL 
TURBO, mais se justifiait dans les versions précédentes des 
compilateurs PASCAL. 

Ce dernier bloc constitue une sécurité pour le programmeur 
en PASCAL. En effet, si jamais le programme donne à l'’iden- 
tificateur qui suit le mot CASE une valeur bizarre non prévue 
par le programmeur, celui-ci en sera informé. En l'absence de 
ce filet, il peut dans certains cas se produire des choses pour 
le moins curieuses et vous risquez de passer de nombreuses 
heures avant de suspecter cette instruction, alors prenez tout 
de suite de bonnes habitudes et mettez votre ceinture de sécu- 
rité. 


Le programme 2 traite d'un autre exemple dans lequel il est 
demandé en entrée un caractère ; en sortie, il est écrit sur 
l'écran la saison en toute lettre. Il s’agit en fait du même exem- 
ple que précédemment, mais appliqué à des variables du type 
CHAR comme le précise d’ailleurs le bloc déclaration. Vous 
noterez qu'il ne faut pas confondre l'identificateur <p> avec 
<'p'> qui représente le caractère p. De toute manière, PAS- 
CAL TURBO est sympa, il compile pour vous et vous signa- 
lera cette erreur. Bien sûr, vous pouvez lui faire une subtilité 
qu'il ne détectera pas : c'est d’avoir déclaré par ailleurs l'iden- 
tificateur <p> comme constante de type CHAR au préala- 
ble... (sans commentaire). \ 

Le programme 3 nous ouvre d'autres possibilités quant aux 
possibilités de choix de valeurs que peut prendre la variable 
<car>. 

Le premier bloc traite des voyelles. Comme elles conduisent 
toutes au même traitement, il est possible de simplifier l'écri- 
ture par une ENUMERATION de toutes les possibilités sépa- 
rées par des <,>. 

Le deuxième BLOC traite le cas de chiffres. Il ne diffère du 
premier que par une disposition différente. Il faut se rappeler 
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que PASCAL fait une distinction entre ligne éditeur et ligne 
PASCAL (voir articles précédents). Cela permet de compo- 
ser une agréable présentation et d'effectuer plus facilement 
des corrections plus aisées le cas échéant. 

Le troisième bloc traite le cas des symboles. <' Ale 
signifie à partir du caractère <blanc> jusqu'au caractère 
</2.Le mot réservé est <blanc> <.> <.> <blanc> et 
comme c'est un mot et donc un identificateur, il ne doit pas 
renfermer de séparateur à l'intérieur, ce qui signifie que les 
deux points doivent IMPERATIVEMENT ETRE COTE A COTE. 
Cette notation sera utilisée ultérieurement de façon intensive 
et est donc à connaître. Elle représente un INTERVALLE et 
ne doit pas être confondue avec la notation précédente 
l'ENUMERATION. 

Le quatrième bloc traite le cas d’autres symboles dont le code 
ASCII est compris, la valeur 58 et la valeur 64. Le caractère 
# signifie donc < caractère dont le code ASCII est >. 

Le cinquième bloc est analogue au précédent quant à la cons- 
truction, mais les valeurs sont indiquées en hexadécimal 
comme l'indique le caractère <$> qui précède les valeurs 
5B et 60. < # £°> se lit donc comme étant le caractère dont 
le code ASCII est 5B en hexadécimal. 


Le sixième bloc est aussi un INTERVALLE dont les bornes sont 
des identificateurs. Ceux-ci étant déclarés comme constante, 
le compilateur les acceptera. 


IL EST EVIDENT QUE L'ORDINATEUR NE PEUT ACCEPTER 
DEUX SOLUTIONS A SON CHOIX POUR UN PROBLEME 
DONNE. IL NE PEUT DONC PAS ADMETTRE QU'UNE 
VALEUR D'OPTION SE RETROUVE DANS DEUX BLOCS DIS- 
TINCTS. 


INSTRUCTIONS SIMPLES 
INSTRUCTIONS MULTIPLES 


Nous venons de voir que chaque bloc de l'instruction CASE 
doit contenir une valeur CONSTANTE SIMPLE, ENUMEREE, 
INTERVALLE suivie du caractère <:> suivi D'UNE INSTRUC- 
TION qui se termine par le caractère <; >, sauf celle qui pré- 
cède le ELSE qui n’a pas ce <;>. 

Ce n'est pas un hasard si nous avons mis en gras < UNE INS- 
TRUCTION>, car il ne doit y avoir qu'une SEULE INTRUC- 
TION entre <:> et <;>. Mais celle-ci peut être simple ou 
multiple. 

Pour transformer une suite d'INSTRUCTIONS SIMPLES en une 
INSTRUCTION MULTIPLE, il suffit de faire de ces instructions 
simples un bloc qui sera ouvert par le mot clef BEGIN et qui 
sera fermé par le mot clef END. La figure 3 vous montre la 
syntaxe d'une telle transformation et le programme 4 vous 
donne un exemple d'utilisation d'instructions multiples dans 
l'instruction CASE. 


LIMITES D'UTILISATION 
DE L'INSTRUCTION CASE 


L instruction CASE est très performante, elle permet de plus 
de disposer d'une présentation plaisante à la vue et facile à 
comprendre. Elle présente cependant deux limitations très 
sévères : la variable ne peut pas être du type REAL et elle 
n'admet que des choix constants non modifiables par pro- 
grammation. 

Comment s'affranchir de ces limitations ? De deux manières 
très différentes. La première consiste en l'utilisation ration- 
nelle des opérateurs booléens, la seconde consiste en l'utili- 
sation de l’autre instruction de débranchement conditionnel 
IF... THEN .… ELSE. Mais comme une bonne utilisation de l'ins- 
truction IF THEN ELSE passe par la maîtrise des opérateurs 
booléens, il n'y a pas d’autres solutions que de se lancer dans 
cette étude. Mais que parsonne ne s’affole, ces booléens c'est 
simple et ça simplifie tellement les choses que pour un modi- 
que effort, nous allons faire un grand pas vers la structura- 
tion de notre programmation. 
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— Figure 6 — 


a:= true 


— Figure 7 — 


AND false OR true AND NOT false 
: Less ë 
AND false OR true AND true 


OR true 


CE : 


true 


= true 


— Figure 8 — 


AND(false OR true) AND NOT false 


fee resse— > 
AND(false OR true) AND 


& 


— Figure 9 — 


LE TYPE BOOLEEN 


Les booléens définissent en PASCAL un type, c'est-à-dire que 
PASCAL définit les objets que nous pouvons manipuler et les 
actions que nous pouvons effectuer sur ces objets. 

Tout d'abord, définissons les objets manipulables. Ils sont au 
nombre de deux : VRAI et FAUX. Il est évident que les actions 
que nous allons pouvoir effectuer vont être très limités du fait 
du très petit nombre d'objets. Tant mieux, ce sera plus sim- 
ple. 

Définissons maintenant les actions possibles. Viennent en pre- 
mier, comme dans le cas des entiers, les opérateurs qui per- 
mettent d'effectuer des opérations sur ces booléens en défi- 
nissant des expressions booléennes comme nous avons défini 
des expressions arithmétiques. Ces opérateurs ne sont eux 
non plus pas nombreux puisqu'il n'y en a que trois de vrai- 
ment intéressant : <ET> ; <OU> ; <NON>. viennent 
ensuite les instructions que nous pouvons appliquer à ces 
variables booléennes, les principales sont l'affectation, la com- 
paraison et le classement. 


LES OPERATEURS BOOLEENS 


e L'OPERATEUR ET — Si nous définissons trois variables boo- 
léennes p,q,r, et que nous affectons à p le résultat de l'ex- 
pression < p ET r > nous obtiendrons le tableau de vérité 
que nous montre la figure 4. Ce qui est à retenir, c'est que 
p est vrai si et seulement si <q est vrai> ET <rest vrai>. 
e L'OPERATEUR OÙ — Avec nos mêmes variables, si main- 
tenant nous affectons à p le résultat de l'expression <q OÙ 
r>, nous obtenons le tableau de vérité de la figure 5. Ce qui 
est à retenir, c'est que p est vrai si <qest vrai> OÙ <rest 
vrai>. 

e L'OPERATEUR NON — Cet opérateur est un peu spécial 
car il n’agit que sur la variable qui suit, il est dit de ce fait 
OPERATEUR UNAIRE. La figure 6 nous donne le tableau de 
verité de cet opérateur pour lequel nous affectons à la varia- 
ble p le résultat de l'expression booléenne <NON q>. 


LES EXPRESSIONS BOOLEENNES 


Il'est bien sûr possible de chercher à déterminer la valeur d'ex- 
pression booléenne plus compliquée du genre <q ET r OU 
Vv ET NON z >, mais alors, comme pour les opérateurs arith- 
métiques, il faut déterminer une priorité afin qu'il n'y ait pas 
de confusion. Les opérateurs booléens sont classés par ordre 
de priorité croissante OÙ < ET < NON. En cas d'égalité de 
priorité, l'expression est calculée de gauche vers la droite. 
Ilest toujours possible de forcer les priorités en mettant des 
parenthèses, comme en BASIC d'ailleurs. Dans ce cas, le con- 
tenu des parenthèses est effectué en premier. 

Les figure 7 et 8 illustrent le mode calcul des expressions 
booléennes. 


LES OPERATEURS RELATIONNELS 


Ces opérateurs permettent de faire les tests, ils sont au nom- 
bre de six et sont donnés à la figure 9. Pour effectuer un test, 
il suffit d'écrire : 


résultat: = valeur 1 > _2 


Ce qui se lit affecté à la variable résultat la valeur du booléen 
obtenu par la proposition valeur 1 supérieur à valeur 2. La 
valeur de la variable résultat ne peut être que vrai ou faux : 
VRAI si valeur _1 est réellement supérieure à valeur 2 ; FAUX 
dans le cas contraire. 

Les variables valeur 1 et valeur 2 peuvent être de n'importe 
quel type, MAIS ILS DOIVENT TOUS LES DEUX ETRE DU 
MEME TYPE. 

Il'est possible de faire agir en même temps les opérateurs rela- 
tionnels et les opérateurs booléens. Par exemple, supposons 
qu'une personne soit imposable sur le revenu si son salaire 


— Figure 10 — 


[ var revenu : real: 
imposable, 
celibataire boolean:; 
| pegin 
| 
| imposable:= celibataire «nd (revenu 10000. 
| Les mmes 1 denses >» msn > PS ne 2 ES 
boolean boolean real real 
PES esse 
L boolean 
ER 


est supérieur à 10000 F et qu'il est célibataire. La figure 10 
donne le listing de cette proposition en PASCAL. 


LES CLASSEMENTS 


Nous verrons qu'il est nécessaire d'établir un classement entre 
les deux objets de notre type. PASCAL le définit comme VRAI 
> FAUX. Nous pouvons mettre en évidence cette propriété 
en demandant à l'ordinateur de vous donner l'ordinal de vrai 
et de faux. 


ord (true); 
ord (false); 


a: 
b: 


Si vous affichez le résultat, vous aurez 1 pour a et O pour 
b. Notre ensemble est donc bien ordonné. 


SOUS QUELLE 


ETOILE 
SUIS-JE NE 7? 


290 F. 


La disquette double-face 


MIROIR 
ASTRAL 


Avec une date, une heure et un lieu de naissance, 

votre CPC établira un portrait psychologique 

approfondi d'environ 15 pages sur imprimante ! 

Un logiciel qui vous étonnera par sa profondeur ! 
(version familiale d'un logiciel utilisé par les professionnels) 


ur 


à suivre... 


Astropsychanalisez votre famille,vos amis, 


comme les plus grands hommes célèbres. 


Commandez votre disquette pour CPC 6128 ou CPC 664 
(PORT GRATUIT) à : 
Bernard VILLEMIN 
317, Av. de Verdun - 83110 SANARY - Tél. 94 74 32 00 


. 
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program programi (input ,autput): 
var mois : integer : 
bein 
write (‘entrer une valeur entre 
readln (mois): 
case mois of 
CEHL.OC 13 1 : writeln 
{HLOC 23 2 : writeln 
{HLOC 23 ue L writeln 
{HLOC 435 4 : writeln 
{HLOC 523 D : writeln 
{HLOC 6} 6 : writeln 
CHLOC 735 7 : writeln 
{HLOC 8} 8 : writeln 
{BLOC 93 9 : writeln 
{HLOC 10} 10 L writeln 
{HLOC 11} di : writeln 
CHLOC 127 12 F writeln 
HLOC 1233 else writeln 
end: 
end.@ 
program program? (input ,output): 
var caract 8 char : 


NOUVEAU 
SPÉCIALISTE 
AMSTRAD 


OUVERT DE9hàl12h 
et del4hà19h 
sauf lundi matin 


20, rue de la Gare 


(face au commissariat de police) 


62300 LENS 
Tél. 21.28.42.24 
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URGENT 


L'OE -L? 


"JANVIER 
"FEVRIER 
"MARS 
“AVRIL 
"MAI 

"JUIN 
“JUILLET 
“AOUT 
"SEFTEMRRE 
OCTORRE 
NOVEMRKE 
DECEMERE 
“DESOLE IL 


begin 
write 
readiln 


Occasion à saisir sur Bor- 
deaux, livré clés en mains, 


IC.A. actuel minimum : 
300000 F/mois. 


Pour tout renseignement 


Tél. 56.91.15.8 


1 


COMPTE 


(‘entrer un caractere : 
(caract): 


di 
) 
) 
) 
) 
) 

e. 
) 
) 
) 
) 
) 


NY QUE 12 MOIS") 


°)3 


») 


Rentabilisez votre 6128 (*) 
& PCW 8256/8512 
GESTION DE FICHIERS 


(*) avec le Basic Mallard 


voir CPC N° 17 page 60 
Exploitation de Fichier 
à accès direct 
— Edition sélective, recherche 
multicritère, Mailing, + de 900 
Fiches de 10 rubriques 
— Gestion écriture bancaire 
— Gestion de BIBLIOTHEQUE 


(Prix port compris) 
Cherche REVENDEURS 


M. Roger DESFOURNAUX 
31, rue du Couvent - 84300 CAVAILLON 
Tél. 90 76 13 49 


Rens. + catalogue contre 2 timbres 


120 F 
180 F 
180 F 


ÉaFACtE GT 
‘D° 


2 


> > 


Te 
et 
he 
else 
e@rid 
TE 


PT COCHE à mn 


CNIL Fi 
CMmax 


Const 


ARTS Car 
De:cy1 nn 
write 
readln (car): 
case car of 
‘a, 


writelr 
wii Ces lr 
wri Le: l ri 
writeln 
writelr 


(‘entrer un caractere : 


#64 


ES .. HF60 


DE CJ1 


CMAX* 


printemps 
fete"): 

fautomie 
hiver 1) 


‘pas de 


y 


“ja 


writeln 


1) 


BAL EC 


CL OMAN EST EL EU € 


writeln (car 


writeln 
writeln 
uriteln 
writeln 
writeln 


(car, 
(Car 
(car 
(Cat 
(Car 


(car, ° 


par cette lettre‘) 


. 
LA 


une voyelle 


LUN 
un 
Un 
LUN 
LU 


chiffre") 
symbole”) 
symbole ‘) 
symbole ‘) 
symbole ‘) 


. 
* 
" 
nl 
" 
8 
" 
ol 


est une consonne) 


write C'entrer un caractere 
readln Ccar act): 
case caract of 
HQE 2e 197 : becin 
Write ln caractere  @ 
writelr chiffre est 
encl 


un chiffre"); 
",caract) 


else begin | 
writeln (‘ce caractere n''est pas un nombre‘): 
uriteln (‘ce caractere est :°7,caract) 
end 
æenc 


end.@ 


UTILITAIRE 


SUPERMAA 


(Eutersoft) 


Sous ce titre quelque peu sibyllin, se 
cache un logiciel d'aide à l'apprentissage 
des échecs. J'ai bien dit apprentissage. 
En effet, le programme ne vous propose 
pas un affrontement homme-machine, 
mais une série d'exercices destinés à 
faire de vous les futurs champions dont 
la France a tant besoin. Après une page 
de présentation, on vous demande si 


vous possédez un moniteur couleur ou 
monochrome, puis si vous désirez récu- 
pérer la version originale du programme 
(en effet, il est possible de la sauvegar- 
der). Le menu présente 10 choix. Les 
points ELO dont il est question dans la 
première option sont les références du 
niveau des joueurs. On vous apprend 
aussi qu'un débutant possède d'office un 


ELO de 1200 et que le champion du 
monde dépasse 2700. Le but du pro- 
gramme est de vous faire atteindre des 
sommets dans l'art échiquéen. 

La série d'option suivante concerne dif- 
férentes parties du jeu ; les titres étant 
d’ailleurs éloquents : astuces dans l'ou- 
verture, centre et percées, attaque sur 
le roque, renforcement et défense, 7° 
rangée et pion passé, fins de parties. 
Chaque exercice vous donne une suite 
de mouvement sous forme symbolique : 
1d4, Cf6, 2c4, C5, 3d5 ! 

L'ordinateur vous donne ensuite le choix 
entre 3 réponses : À, B ou C. Selon votre 
réponse, le programme signalera vos 
éventuelles erreurs avec une explication 
sur la marche à suivre. Mais peut être 
que tous ces symboles vous semblent un 
peu abscons. Qu'à cela ne tienne, l'op- 
tion ‘‘J’’ vous offre une liste de vocabu- 
laire technique : ZUGZWANG ne sera 
plus un mot exotique, mais un terme des 
plus courants. 

Une fois complètement imprégné de 
l'univers de l’échiquier, il vous reste à 
reprendre des parties célèbres et à tes- 
ter vos ‘’réflexes'’. Deux catégories de 
questions existent : avec ou sans échi- 
quier.… Les parties avec échiquier se font 
au coup par coup. Les ouvertures se 
déroulent automatiquement. Puis votre 
tour arrive. Notez bien qu'il est préféra- 
ble d’avoir un échiquier réel à côté de soi 
afin d'effectuer les déplacements. A cha- 
que arrêt du programme, il faut imaginer 
la réponse possible. (N'oublions pas qu'il 
s’agit de parties entre joueurs de haut 
niveau). En appuyant sur ‘’—"’ la solu- 
tion apparaît, il ne vous reste plus qu'à 
vous attribuer une note : O si la réponse 
est mauvaise, 1 si le coup est moyen et 
2 en cas de franche similitude entre votre 
échiquier et celui présenté sur votre 
écran. 

Ces quelques tests effectués, vous pou- 
vez retourner au menu et contempler la 
progression de votre score. Si rien ne 
s'améliore, retournez vers les exercices 
et entraînez-vous intensément. 
Quelques critiques négatives, mainte- 
nant, la présentation n’est pas d’une très 
haute qualité et les débutants auraient 
peut-être souhaité avoir un peu plus de 
graphisme afin d’'égayer ce programme. 
Mais nous sommes dans l'univers ‘’spor- 
tif” des échecs et il est vrai que la fan- 
taisie doit céder le pas devant l'analyse. 


CLASH 
ERE INFORMATIQUE 


Aventure 


La naissance d'une nouvelle gamme 
de logiciels est toujours attendue 
avec impatience ; aujourd'hui, c'est 
le tour d'Ere Informatique avec 
Clash qui démarre la gamme Metal 
Hurlant issue de la célèbre revue 
du même nom. 

Situons rapidement le contexte de 
l'action : vous êtes Manuel, petit 
trafiquant de mobs ; vous êtes 
fraîchement sorti de l'ombre et 


Jeun Claude: et Sérge 
7 ERMINI 


music : ÉHAIPPE-MARCHISE T 


MASK 
GREMLIN GRAPHICS 


Arcade/Aventure 


Il est un problème qui existe 
depuis la nuit des temps et que 
personne n'est encore parvenu à 
résoudre : il s’agit du perpétuel 
affrontement entre le Bien et le 
Mal. Seulement, si vous vous 
engagez dans les forces de Mask, 
vous pourrez combattre les 
redoutables Venoms qui n'ont 
qu'un seul but : abominer le 
monde. 

Avant d'atteindre la base des 
Venoms que vous devez détruire 
totalement, vous avez trois 
endroits à ‘visiter’ afin de sauver 
cing autres agents. Pour arriver à 
vos fins, vous devez commencer 
par localiser et activer le scanner 
qui vous indiquera l'endroit où se 
trouve l'agent à libérer. Pour cela, 
il faut ramasser les morceaux 
permettant de reconstituer la clé 
de sécurité. Ensuite, l'agent étant 
libéré, vous devez ramasser son 
masque. Bien entendu, quel que 
soit l'endroit visité, il y a toujours 
des ennemis dévastateurs de tous 
bords qui prennent un malin plaisir 
à détériorer votre vaisseau ; aussi, 


rentrez tout content chez votre 
chère petite mère qui vous a 


sûrement mitonné un véritable petit 


festin pour l'occasion. 
Malheureusement pour vous, il n'y 
aura pas de fête ou alors cela va 
être la vôtre, car vous découvrez 
votre mère assassinée et, qui plus 
est, la concierge vous trouve avec 
l'arme du crime dans la main et 
elle appelle immédiatement la 
police. 


Avec la farouche énergie qui anime 


chaque innocent, il ne vous reste 
plus qu'à reprendre contact avec 
vos anciennes connaissances peu 
recommandables afin d'essayer de 
trouver le ou la coupable de ce 
crime odieux que l'on va essayer 
de vous coller sur le dos. Mais 
avant de commencer votre 


enquête, sachez bien qu'il va falloir 


vous serez bien heureux de trouver 
des trousses à outils qui vous 
permettront de poursuivre votre 
mission. 

Le nouveau jeu d'arcade-aventure 
vous captivera une fois que vous 
aurez découvert toutes les options 
de Mask ; le graphisme n'est pas 
particulièrement génial, mais 
l'animation traduit un phénomène 
d'inertie sur votre vaisseau qui 
apporte une difficulté 
supplémentaire. Ah, un dernier 
détail : votre mission est 
chronométrée alors pas de temps à 
perdre ! 


BANC D'ESSA/ 
LOGICIELS 


QUE SAIS TU 


J'ai vu Celine 
ensemble... 


être psychologue et tirer les vers 
du nez à vos “copains” sans qu'ils 
s'en aperçoivent. 

Après une belle page écran doublée 
d'une agréable musique, vous 
entrez dans le feu de l'action avec 
un écran partagé en quatre parties 
principales : la fenêtre présentant 
le lieu où vous vous trouvez, celle 
où apparaissent les personnages, 
celle où vous pouvez dialoguer et, 


EXOLON 
HEWSON 
Arcade 


Depuis des jours et des jours que 
votre voyage a commencé (je ne 
dirais pas des lunes puisqu'il n'y 
en a pas dans le système où vous 
évoluez !), vous désespérez de 
pouvoir poser votre astronef 
quand, soudain, vous apercevez la 
fin du voyage. 

Seulement, dès que vous pointez le 


ras 


LÉAÉRIISITITLRÉIER Ë ES ES 


pour terminer, la fenêtre où vous 
pouvez sélectionner une icône pour 
agir (examen, dialogue, fuite...). La 
réalisation de ce logiciel est 
soignée avec un graphisme net qui 
a peut-être le désavantage de ne 
pas occuper une place plus 
importante. Somme toute, une 
gamme qui démarre bien et qui 
vous permettra de passer quelques 
bonnes heures. 


bout de votre nez, les tirs 
commencent instantanément et 
c'est l'angoisse car vous avez beau 
posséder neuf vies, c'est loin 
d'être l'immortalité ! Alors, vous 
avez le choix entre deux modes de 
ripostes : le pistolet ou les 
grenades, ces dernières ayant 
l'avantage de traverser également 
les murs épais ou les parois 
rocheuses. Malgré tout, si les 
ennemis s'avèrent nombreux, 
puissants et indestructibles, alors 
n'hésitez pas à utiliser votre 
armure hyper blindée : 
l'exoskeleton qui est manœuvré de 
manière hydraulique et qui vous 
assure protection contre presque 
tout (excepté les canons les plus 
puissants). 

Exolon peut être qualifié de jeu 
d'arcade classique présentant les 
caractéristiques suivantes : bon 
graphisme constituant des écrans 
très colorés avec une animation 
correcte quoique pas très rapide. 
La progression s'effectue de 
manière linéaire et vous avez la 
possibilité de faire le plein 
d'énergie et de grenades en chemin 
(ce qui n'est pas négligeable). Pour 
terminer, citons un avantage de ce 
logiciel : la possibilité d'avoir accès 
à une multitude d'écrans... 


LOGICIELS 


WONDER BOY LES DIEUX 

ACTIVISION DE LA MER 

Arcade INFOGRAMES 
Arcade/Simulation 


Une nouvelle fois, voici une 
adaptation de jeu de café ; les 
résultats obtenus ne sont pas 
toujours des plus réussis et nous 
en avons ici un exemple. 

Wonder Boy est un Tarzan haut 
comme trois pommes, qui possède 
un courage sans limite pour se 
porter au secours de sa belle. Car 
figurez-vous que la pauve Tina 
s'est fait enlever par le plus 
malfaisant des personnages de la 
jungle, qui fait régner la terreur 
sur tous les habitants ! 

Notre Tarzan, tout blond, 
commence sa dure mission en 
pleine forêt et rencontre un œuf 
{ami ou ennemi?) ; heureusement 
pour lui, tous ces œufs vont 
l'équiper de différents objets : 
skate board, hache ou même ange 
gardien. Il en aura bien besoin car 
tout lui est hostile et mortel par 
simple contact : blocs de pierre, 
abeilles, escargots ou serpents. 


Alors que le championnat du 
monde de ski nautique s'est 
déroulé du 17 au 20 septembre à 
Londres, Infogrames a devancé 
cette manifestation de quelques 
skis en nous proposant cette 
simulation qui mérite fortement 
que nous y jetions un coup d'œil. 
Comme tout bon championnat qui 
se respecte, vous devez accomplir 


ULTRON 1 
CHIP 
Arcade 


La comète de Halley, vous vous en 
souvenez ? Elle avait déjà fait 
parler d'elle en 1985 et 
aujourd'hui, cela recommence, mais 
en pire !.… En effet, en cette 
année 2062, la Terre récupère de 
l'énergie en captant les vents 
Seulement, Wonder Boy est comme 

tout un chacun: ne pouvant se 

satisfaire d'amour et d'eau fraîche 

pour conserver sa vitalité, il devra 

attraper les fruits qui apparaissent 

de temps à autre. 

Bien que ce jeu ne manque pas 


d'intérêt, vous serez sans aucun 
doute déçu par le choix des 
couleurs qui sont un peu ternes ; 
le scrolling, quant à lui, s'avère 
être un peu saccadé mais il faut 
noter que le graphisme est plus 
que correct et que vous avez 112 
décors différents à votre 
disposition. 


solaires à partir d'une base 
spatiale. Seulement, le 
fonctionnement de cette base a 
été perturbé par le passage de la 
comète de Halley. 

La base risquant d'exploser à tout 
instant, un robot télécommandé est 
envoyé là-bas afin de récupérer 
trois cyclotrons désactivateurs. 


les trois épreuves imposées 
suivantes : le saut, les figures et 
le slalom pour terminer en 
apothéose.. 

Pleinement concentré, vous vous 
présentez pour la première 
épreuve ; un petit coup de joystick 


à droite et vous vous retrouvez sur # 


le tremplin. Le plus dur sera de 
rester équilibré en l'air pour ne pas 
prendre une tasse mémorable à 
l'arrivée ! 

Ayant effectué vos trois essais 
pour l'épreuve du saut, vous vous 
engagez dans celle des figures : 
pour commencer en douceur, vous 
vous permettez un petit dérapage 


Etant chargé de guider le robot 
dans la base, vous découvrez une 
grande difficulté : le déplacement 
du robot se fait comme s'il était 
une toupie (contrôle délicat) et la 
moindre erreur se solde par une 
formidable explosion. De plus, la 
base présente des passages étroits 
et semés d'embüûches, le tout sur 
fond de losanges. 

Les premiers essais de ce logiciel 


SCORE-000000 
JUYSTICKE 


puis vous osez un demi-tour, un 
tour complet et enfin un 540° 
STEP, c'est-à-dire, un tour et demi 
avec une jambe passée au-dessus 
de la corde de traction pendant la 
rotation (magnifique !) 

Vous terminez votre championnat 
par le slalom où il n'y a que 6 
bouées à passer peut-être, mais le 
parcours s'effectue très, très 
rapidement ! 

Vous serez enchanté par ce logiciel 
qui a l'avantage d'allier qualités 
graphiques et d'animation à une 
présentation attrayante ; alors, un 
conseil, n'ayez pas peur de vous 
mouiller ! 


vous mèneront sans doute à la 
conclusion : ce n'est pas jouable ! 
En effet, étant donné la difficulté 
que l'on rencontre pour contrôler le 
robot, la fin du jeu est toujours 
très rapide. Malgré tout, avec un 
peu d'entraînement, vous pourrez 
progresser sur cette base 
fortement géométrique et un peu 
austère, car la persévérance paie 
toujours. 


AGE 


CHARLY DIAMS 
LORICIELS 
Arcade/Aventure 


Le temps n'étant plus à la ruée 
vers l'or depuis fort longtemps, 
Charly a décidé de partir à la 
conquête des mille diamants bleus 
pouvant lui garantir une retraite 
immédiate et plus que 
confortable... 

Seulement, la cachette où se 
trouve cette petite fortune est loin 
d'être accessible et il va falloir 
énormément voyager. De plus, 
l'acheminement vers la-richesse se 
fait par étapes, car il faut réunir 
sept fleurs.et pas n'importe 
lesquelles puisqu'il s'agit de fleurs 
miracles !.. 


LOGICIELS 


C'est ainsi que Charly commence 
son périple en plongeant dans le 
Golfe du Bengale (attention, il ne 
faut pas oublier de se mettre en 
tenue de bain !...). Avec de pareils 
décors aquatiques c'est bien le 
diable s'il ne réussit pas à trouver 
une fleur! Ensuite, commence la 
longue, pénible et très éprouvante 
traversée du désert du Ténéré où 
il faut échapper au redoutable 
Ayatollah.. 


Mais il reçoit une belle récompense 
au bout de cette terrible épreuve 
en la personne de Roubia, porteuse 
d'eau qui lui permet d'obtenir 
quatre fleurs en une seule fois !.. 
Bref, avec ce tout dernier jeu 
d'arcade/aventure de Loriciels, vous 
allez en voir de toutes les 
couleurs... Avec un graphisme 
soigné, haut en couleurs, 
présentant des paysages très 
divers (mais attention, nous 
restons toujours dans le style 
arcade). La musique, quant à elle, 
présente, par moments, quelques 
réminiscences de Zox 2098. 


CANADAIR 
FIL 
Arcade 


Ce logiciel fait référence à un 
problème qui, malheureusement, se 
pose cruellement tous les étés : ce 
sont les incendies de forêt. 
Canadair vous propose de prendre 


place à bord d'un de ces avions et 
de vous transformer en ‘’pompier 
volant” sans peur et sans reproche 
afin de repérer et d'aller 
héroïquement éteindre tous les 
feux. 

Après avoir pris suffisamment de 
vitesse et décollé sans encombre, 
vous repérez votre premier lieu de 
mission en le localisant sur la 
carte ; ensuite, après chaque 


incendie éteint, vous devez vérifier 
le niveau de vos réservoirs d'eau 
et aller les remplir le cas échéant. 
Le but du jeu sera d'éteindre le 
maximum d'incendies en un 
minimum de temps, tout en étant 
un virtuose du manche car l'espace 
aérien n'est plus ce qu'il était : il 
règne un de ces trafics... | 


A première vue, le sujet semble 
intéressant, mais il y a de grandes 
chances pour que vous soyez un 
peu déçu par le graphisme du jeu ; 
per contre, la page de présentation 
accompagnée d'une synthèse 
vocale est bien réussie. Un autre 
petit détail : si vous avez une 
impression de déjà vu, ne vous 
posez pas la question de savoir où 
vous avez des prémonitions car en 
cherchant bien, vous trouverez 
certainement son frère jumeau (ou 
presque |). 


WIZBALL 
OCEAN/US GOLD 
Arcade 


Osez pénétrer dans un monde tel 
que celui de Wiz et vous 
comprendrez enfin ce que peut 
être un univers sans couleur : tout 
simplement un contexte gris, terne, 
triste et sans saveur. 

Vous n'allez certainement pas 
laisser Wiz dans cet état ! C'est 
pourquoi vous sautez dans votre 
transporteur avec votre inséparable 
chat Catelite et foncez à la 
recherche des gouttelettes bleues, 
rouges ou vertes indispensables à 
la restitution des couleurs. 
Malheureusement, vous vous 
rendez vite compte qu'avec votre 
apparence toute ronde, vous avez 
du mal à vous contrôler. Mais il 
suffit de percer le secret de 
certaines des créatures étrangères 
qui peuplent l'univers de Wiz, pour 
gagner quelques propriétés. 


PAUSED a 


En effet, lorsque certains ennemis 
sont tués, ils déposent une perle 
verte qu'il vous suffit de ramasser 
pour avoir accès à des icônes qui 
vous permettront d'obtenir un 
meilleur contrôle de vous-même... 
C'est par ces mêmes icônes que 
Catelite pourra vous rejoindre pour 
aller ramasser les gouttelettes de 
couleur. 

Wizball est un logiciel qui a 
l'avantage d'être original, attrayant 
et bien réalisé. Par contre, avant 
que vous ne perdiez patience, je 
vous donne un truc pour 
sélectionner une icône : Wizball 
effectuant un mouvement vertical, 
vous devez faire subir à votre 
joystick un mouvement latéral très 
rapide. 
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INDOOR SPORTS 
DATABYTE/UBI SOFT 


Simulation 


Pour tous ceux qui ne sont pas de 
fervents adeptes de sports en plein 


LOGICIELS 


en sachant que vous ne serez que 
2 joueurs à la fois), vous pouvez 
commencer par une partie de 
bowling, pour vous mettre en 
condition. Bien que la réalisation 
soit correcte, vous serez peut-être 
gêné par le fait qu'un lancer de 


air, pour cause de vent, pluie etc., 
nous leur proposons de s'exercer à 
des sports en salle, quatre pour 
être précis et, qui plus est, en 
étant confortablement installés 
dans leur fauteuil devant leur CPC 
Après avoir entré tous les noms 
des joueurs (vous pouvez jouer à 4 


boule se fait sur deux écrans : un 


an QE ST MAUR GO 5: À 


O0: LAS 


Pate OL KATE 


dessins animés !.. Road Runer 
nous est enfin parvenu et c'est 
avec une grande fébrilité que j'ôte 
le film plastique protégeant la 
disquette. 

Je prends aussitôt un départ 
fulgurant et laisse sur place cet 
imbécile de coyote. En pleine 
ligne droite j'aperçois un immense 
tas de graines que j'avale en 
passant ; pendant ce temps, le 
coyote a déniché (je ne sais où), 


ROAD RUNNER 
US GOLD 
Arcade 


Depuis le temps que nous 
attendions la version sur 
AMSTRAD d'un des plus célèbres 
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pour le départ et un pour visualiser 
les quilles… 

Ce système de deux écrans se 
retrouve également pour le jeu de 
fléchettes : un gros plan sur la 
cible pour orienter votre tir et une 
vue globale de toute la pièce pour 
voir le résultat final. 

Lorsque vous sélectionnez le 


troisième sport, vous prenez un 
coup de frais car il s'agit de 
“hockey aérien” où il vous faudra 
faire preuve d'énormément de 
réflexes et d'habileté car c'est 
vraiment très, très rapide !.. 

Non contents d'avoir pu se 
défouler de façon agréable sur ces 
trois jeux, les Amstradistes ont 
l'honneur et l'avantage de pouvoir 
faire une partie de ping-pong en 
prime, classique mais toujours 
agréable à retrouver. Somme 
toute, un logiciel qui vous 
procurera plaisir et variété. 


une planche à roulettes et il se 
rapproche, se rapproche 
dangereusement. Mais, comme 
d'habitude, je serai le plus fort. 
Beep-Beep ! 

Lorsque vous découvrirez ROAD 
RUNNER, vous serez peut-être 
déçu par la qualité du graphisme 


(surtout si vous en avez déjà vu 
d'autres versions...) Par ailleurs, 
vous remarquerez très rapidement 
que le jeu se décompose de 
manière alternative de parcours 
rectilignes très faciles et de 
parcours parfois difficilement 
franchissables. Par contre, pour ce 
qui est de l'animation, vous serez 
pleinement satisfait par le degré 
de vélocité que peut atteindre ce 
cher Beep-Beep !.… 


CE miracle dt En ER 


CATALOGUE 


# impression de catalogue de disquettes 
n'est pas très complexe et nous avons déjà publié 
(CPC 14) un utilitaire qui faisait ça très bien. Voici, 
cependant, un petit programme qui vous donne le choix 
entre une impression sur une, deux ou quatre colonnes et 
vient donc apporter un ‘‘plus’’ à ce programme. 


10 CLS: LOAD"FRTCAT.HRIN 

20 CALL &A000 

30 CLS:LOCATE 10,5:FRINT" IMPRESSION DU CATALOGUE 
40 LOCATE 10,7:FRINT" en 1, 2 ou 4 colonnes * 

50 LOCATE 10,12:FRINT" INTRODUIRE LA DISQUETTE “ 

69 LOCATE 10,13:FRINT" ET FAITES VOTRE CHOIX " 

70 LOCATE 10,17:FRINT" 1- sur une colonne" 

89 LOCATE 19,18:PRINT" 2- sur deux colonnes" 

930 LOCATE 10,197:PRINT" 3- sur quatre colonnes" 

100 LOCATE 10,24:FRINT'VOTRE CHOIX: " 


110 a$=INFEY#:1F aë="" GOTO 110 
120 IF a$="1" THEN  FRTICAT,0 
130 IF à 2" THEN FTRCAT, 1 


140 IF a$="3" THEN  PFRTCAT,2 


Nous sommes certains que le retour de vacances 
provoque un tas de bonnes résolutions, dont celle, 
capitale, de remettre bon ordre au fouillis de disquettes 
non cataloguées que vous avez laissées en plan pour 
satisfaire votre appétit de soleil. Ce petit programme, que 
vous devez à Maurice Tollu, de Besançon, vous rendra 
donc les meilleurs services. 


BOITE A OUTILS PC 


Un outil, forgé entièrement à la main et dans les meilleurs 
aciers, par J.P Caron. Les explications sont dans le 
programme. 


1 KEY 4,"SAVE"+CHRS (34) +"b: MAJUS"+CHR# (34) +", a" 

2 REM certains HASIC disposent d'une fonction UFFERE, ou UCASES, 
mais ils oublient les caractères accentués du clavier 
AZERTY. 

Un. GOSUK 51000 règlera le problème. 
Si, dans votre programme, vous avez, par exemple, 
INFUT'texte à mettre en majuscules";TXT#, 
vous pouvez ajouter la ligne: 
numér o+1 A$=TEXT#:GOSUR S1000:TXT#=AS 
Mais il est plus économique de corriger la ligne ainsi: 
INFUT'"'texte à transformer ";A$:GOSUR 51000: TXT8-A# 
L'instruction UFFER$S est donc à remplacer par: 
A#=TXT#+: GOSUR 51000: TXT$#=AS 
20 REM Four convertir en minuscules : GOSUR 52000 
30 PRINT"'Démonstration de mise en MAJUSCULES" 
35 LPFRINT CHK# (27); "@";CHRS (27); "x" 3 CHRS (1) 
40 LFRINT'"Démonstration de mise en MAJUSCULES" 
50 A$="abcdef...àñéébèaaçiifodsuüuaxyzABC12345": PRINT AS:LPRINT A& 
60 PRINT'"'devient:"3LFRINT'"devient" 
70 GOSUR 51000 
80 PRINT A#:LFRINT AS 


90 PRINT"Combien de temps faut-il pour traiter 248 à (le pire cas) 
100 TO#=TIMES: TXT#=STRINGS (248,"ùu"): 

105 T1S=TIMES: A$=TXT$:GOSUB 51000: TXT$=AS 

110 TZ2S=TIMES:FRINT TO$,T18,7T2% 

115 LFRINT'"Combien de temps faut-il pour traiter 248 à (le pire cas) 


‘120 LFRINT'"Heure de début:-";TO0#,"et à la fin: ";T2# 


mn 


130 PRINT'"Démonstration de mise. en minuscules" 
140 LFRINT'"Démonstration de mise en minuscules" 


150  A$="?7;:/AZERTYZSééBèaäciiioüsuuüuu xyzAEIOU12345":FRINTAS:LPRIN - 


160 PRINT'"devient:":LFRINT'"devient" 

170 GOSUR 52000 

180 PRINT A$:LFRINT A# 

190 FRINT"Combien de temps faut-il pour traiter 248 Z (le pire cas) 


200 TO$=TIMES: TXT#=STRINGS (248,"7Z") 

205 T1LS8=TIMES: A$=TXT$: GOSUB 52000: TXT$=<AS 

210 TEF=TIMES: PRINT TO$S,T1#,12# 

220 LFRINT"Combien de temps faut-il pour traiter 248 Z (le pire cas) 


Pierre TACONNET 


230 LFRINT"Heure de début:";TO#$,"et à la fin:";T25 
51000 FOR N=1 TO LEN(A#) :O=ASC(MIDS (A$,N,1)): mise en MAJUSCULES 
51010 1F 0<97 OR Q>122 AND 0<128 THEN 51090 ELSE MID$(A#,N,1)=CHR$ (O- 
32) 
51020 1F Q>130 AND G<135 OK 0=160 THEN MIDS#(AS$,N,1)="A" 
51030 IF 0=145 THEN MIDS(A$,N,1)=CHR$ (146): "A, E dans l'A 
les 
51040 IF O=13S THEN MID# (A&,N,1)=CHR# (128): °ç et majuscule 
51041 REM Cette ligne peut Etre remplacée par 
51042 ‘IF O=135 THEN MID$#(AS,N,1)="C":" C et ç 
510850 IF O>135 AND 0<139 OR O=170 THEN MID#(A$,N,1)="E" 
51060 IF 02178 AND 0<142 OR O=161 THEN MID$ (A#,N,1)="1" 
51070 IF 0>146 AND 0<150 OR O=162 THEN MID#$ (AS$,N,1)="0" 
51080 IF 0-129 OR 0=150 OR 0=151 OR O=163 THEN MID# (AË,N,1)="U" 
51090 NEXT N:RETURN: ‘Le français n'accentue pas le Y 
52000 FOR N=1 TO LEN(AS):O=ASC(MID# (A$,N,1)): mise en minuscules 
52010 IF 064 AND 0:91 THEN MID#(A#,N,1) =CHR$ (0+32) 


et minuscu- 


J.P. Caron, qui travaille sur PC 1512 AMSTARD gonflé à 
640Ko + FD3 +Business card TANDON, a ajouté cette 
routine au listing n° 6 de Michel Archambault, page 49 
de PCompatibles n° 3 


INTERVALLES 2 


ans CPC 23 figurait un programme de calcul 

d'intervalles entre dates auquel il est bon 

d'apporter quelques précisions. Tout d’abord, c'est 
fncj qu'il faut lire dans le REM de la ligne 30. Ensuite, 
c'est par la différence entre les deux codes du jour 
(toujours FNcj) que l’on obtiendra le nombre de jours 
entre les deux dates. Maintenant, cela devrait 
fonctionner. 


FACTORIELLES 


La rentrée des classes, le nouveau prof’ de maths... Bref, 
la routine qui reprend. Utilisons donc notre cher CPC pour 
nous dégager des tâches rébarbatives. Frédéric Herrade, 
de Roquemaure (que cette ville fleure bon les vacances !) 
vous offre ce petit programme. 


19 MODE 1:B=1 

20 INPUT"FACTORIELLE DE QUEL NOMBRE 7"; N# 
ZO N=VAL (NS) 

40 IF N<O OR (N-INT(N))€:O THEN RUN 

50 FRINT"'La factorielle de "jÿN;" est : "3 
60 FOR X=1 TO N 

70 K=Bxx 

80 NEXT x 

90 PRINT E 

100 END 


Vous aviez peut-être oublié que N doit être un entier 
positif (les vacances !), la ligne 40 vous le rappelle. 
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TRUCS ET ASTUCES 


MAÏTRISEZ 
VOS IMPRESSIONS 


Nous sommes les auteurs du programme 
‘’Impression’’, distribué par ESAT Software et 


nous aimerions faire 


CPC de 


Profitant de notre expérience dans le 
domaine de l'impression, il nous apparaît 
comme judicieux de configurer votre 
imprimante comme suit, à l’aide des 
sélecteurs DIP : 

— Zéro barré 

— Jeu de caractères USA 

— Bip actif 

— Papier 11 ou 12 pouces (selon votre 
papier). 

(référez-vous au manuel 
imprimante...) 


de votre 


L'initialisation de votre imprimante peut 
se faire sans couper l'alimentation de 
celle-ci à l’aide de la fonction RSX; | INIT 
(en mode. direct ou en mode 
programme). Ceci peut s'avérer très utile 
dans un programme BASIC pour annuler 
les effets d’une séquence préalablement 
envoyée sur l'imprimante. Le gain de 
place est surtout appréciable lorsque 
vous avez plusieurs commandes à 
annuler. Après l'initialisation, la 
configuration de l'imprimante est 
imposée par le positionnement des 
sélecteurs DIP. 


Avant toute impression, vérifier que la 
longueur des pages est bien la même que 
celle sélectionnée par les DIPs (très 
important pour les sauts de page), sinon 
utiliser la commande | LONGPAGP,p où 
p représente la longueur d'une page en 
Pouces. 


La commande | PAGSUIV vous 
permettra de passer automatiquement à 
la page suivante. 


Lors d’une séparation volontaire ou 
.accidentelle de vos pages de listing, 
‘certaines lignes imprimées sur les 
perforations du papier se trouvent 
détruites. La commande | PERFO,n (n 
représente le nombre de lignes à sauter) 
effectuera un saut de n lignes en bas de 
page. Une solution que nous considérons 
comme très bonne est n = 5. 


Si vous avez déjà été accusé de ..päge 
nocturne à cause de votre imprimante, 
voici une solution qui diminuera 
sensiblement le niveau sonore de celle- 
ci. Utilisez pour cela les commandes 
| UNID et | DEMIV. 
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rofiter les lecteurs de 


velques trucs leur permettant de tirer 


e meilleur parti de ce logiciel. 


Il est parfois utile de pouvoir lire se qui 
se trouve momentanément caché par le 
ruban de votre imprimante, ceci est 
possible grâce à une commande que 
vous n'avez peut-être jamais utilisée et 
qui se nomme | INC. 

Vous serez surpris du résultat ! 


Pourles tilisateurs de TURBO PASCAL 
(vous é.es de plus en plus nombreux), 
avant tout listing, sélectionnez le jeu de 
caractères USA et le mode condensé : 
| CARACT,0: | COND 

Vos listings garderont ainsi leur 
présentation initiale (longueur des lignes 
respectée, crochets et accolades...) 


Pour obtenir une représentation fidèle de 
vos listings BASIC, il existe deux solution 
selon le type de clavier dont vous 
disposez ; si vous possédez un clavier 
AZERTY (français), il vous faudra 
sélectionner le jeu de caractères français 
(| CARACT,1) par contre, si vous 
possédez un clavier QWERTY (USA), il 
vous faudra sélectionner le jeu de 
caractères USA (I CARACT,0) 


Pour les traitements de textes et pour 
avoir une écriture se rapprochant le plus 
de la qualité courrier, il vous faudra 
utiliser la séquence suivante : 

| CARACT, 1: |! NLQ: | PROP 


Economisez environ un tiers de papier en 
faisant imprimer vos listings grâce à la 
séquence d'instruction suivante : 

| COND: | IND: | ALIMO: | PERFO,3 


Ceci est très intéressant pour la 
réalisation de listings destinés à 
l'archivage. 


Remarque : 


Une erreur s’est glissée dans la notice 
d'utilisation d'IMPRESSION, les 
instructions | ALIM1, | ALIM2, | ALIM3 
sont à remplacer par les instructions 
suivantes : | ALIMO, | ALIM1, | ALIM2. 


Pour faire des recopies d'écrans 
partielles, il peut s'avérer utile de ne pas 
tramer l'écran lorsque le morceau 
d'écran à recopier n’est composé que de 
2 ou 3 couleurs. 


Surtout n'oubliez pas d'utiliser cette 
instruction qui ne figure pas dans la 
notice | AUTEURS. 


Dernier conseil : 


Au retour du message de bienvenue 
d'IMPRESSION et du Ready, tapez en 
mode direct. 

CALL &BBOO ; ceci restaure la touche 
ESCAPE et le clavier en général 

CALL &BB4E:CLS ; pour avoir la 
possibilité d'utiliser IMPRESSION avec 
des caractères redéfinis. 

MEMORY &8500; pour avoir un 
maximum de place disponible pour vos 
programmes. 


La disquette IMPRESSION, comme vous 
avez pu vous en apercevoir, n'est pas 
copiable avec CP/M. Toutefois, il est 
possible de réaliser des copies de 
sauvegardes, ce que nous vous 
conseillons, avec le logiciel HERCULE 
par exemple. 


La protection ne remet pas en cause la 
place disponible sur la disquette. || est 
possible de sauver vos applicatiions sur 
la disquette IMPRESSION tant qu'il reste 
des octets de libre. 


Nous vous proposons un petit 
programme utilisant les commandes 
| MTRAME, | MCOPYTRAME, 
| COPYPART, | DOUBLECOPY, 
| COPYTEXTE, | COULEUR. 


10 MODE 1 

20 INPUT ‘‘choix du mode (0,1 ou 2) : 
M 

30 IF m<O or m>2 then 10 

40 INPUT ‘‘’Nom de page à charger : 
noms 

50 LOAD nom$, &CO00 

60 |! MTRAME 

70 t$ =INKEYS$ 

80 IF t$ =’’1’" THEN | COPYPART 
90 IF t$ =‘‘2"" THEN I MCOPYTRAME 
100 IF t$ ="*3"" THEN | DOUBLECOPY 
1101F t$ ='‘4"" THEN | COULEUR 
120 IF t$ =''5"" THEN | COPYTEXTE 
1301F t$>=""1"" AND t$<="'5" 
THEN 70 

140 END. 
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ESA. Software ‘ 


55-57. rue du Tondu 33000 Bordeaux. Tél : 56.96.3523 Poste 31 


LE PREMIER ÉDITEUR DE LOGICIELS UTILITAIRES 


NOUVEAUTÉ 


ZENITH : La capacité de stockage des 
disquettes 3 pouces est au maximum de 
178 Ko. Il est donc difficile de stocker plus 
de 4 programmes par faces. Ce pro- 
gramme de compactage réduit les pages 
de présentation ainsi que les program- 
mes (Basic ou Binaire) er un minimum de 
place. Par exemple si vous possédez un 
fichier organisé comme suit: 
104 AS: * [ 1 ÉCRAN BIN 3 K 
DR # JEUX BIN OK 
EUX FIN eh LM [ 
Le loader-bas aura disparu et vous 
aurez gagne 47 Ko de place libre sur 
votre disquette. 


ZENITH : DISC : 250 F TTC 
NOUVEAUTÉ 


L’INTERPRETE : La majorité des 

logiciels existants sont dans la langue de 

Shakespeare, et l'utilisation n'en est que 

plus difficile (Utilitaires - Jeux d'aventures 

Jeux...). Ce programme vous permet de 

traduire en francais ou en toute autre 

langue vos logiciels préféres. La démar- 

che est automatique et ne requiert au- 

tune connaissance particulière. 

- Mapping du disque 

- Edition des secteurs 

- Acceptation de jokers 

- Traduit plus de 500 mots a la fois 

- Repère automatiquement sur la 
disquette les textes à traduire 


L’INTERPRETE : 
DISC : 290,00 F TTC 


NOUVEAUTÉ 
TRANSLOCK IH : Un ensemble 


complet pour transférer les logiciels 
protégés par SPEEDLOCK de K7 sur 
disquettes (ancien et nouveau). Il est 
tellement bon que les Anglais nous l'ont 
pris. Distribué en Angleterre par SIRON 
SOFTWARE. 
DISC 


-z2mn| 


225,00 F TTC 


Label zeni-qualité : 
ECHOSOFT : DISC 395 F TTC 


Numéro 1 au hit parade des utilitaires : 


————— NOUVEAUTÉ 


BOURSE 2000 


QUAND ACHETER, 
VENDRE, PRENDRE 
DES BENEFICES ? 


Bourse 2000 répond à ces questions et 
à bien d'autres encore avec des instru- 
ments empruntés aux milieux financiers 
les plus cotés (moyennes mobiles, points 
et figures, tableaux, graphiques...). 
Bourse 2000 est livre avec un fichier de 
40 valeurs et leurs cotations depuis 
1985. 

Bourse 2000 est un logiciel évolutif ; 
vous pourrez vous procurer les cotations 
de n'importe quelle valeur sur 2 années 
et plus à ESAT software (listing 20 F, 
disc 50 F). 

Bourse 2000 permet de visualiser la 
tendance d'une valeur (hausse, baisse, 
stagnation) et de situer les moments 
d'intervention (achats, ventes...). 


Clubs et associations : contactez ESAT 
software pour des tarifs préférentiels. 


BOURSE 2000 : 
- AMSTRAD CPC 6128 
seulement : 450,00 F 
- AMSTRAD PCW 8256-8512 
(disponible en août): 750,00 F 
- Compatibles PC-XT (disponible en 


août) : 1200,00 F 
- ATARI 520-1040 ST (disponible en 
août) : 990,00 F 


———— DERNIERF MINUTE 
HERCULE II 


Ensemble de six programmes sans 
concurrence. Documentation sur de- 
mande. 


DISC 395 F TTC 


NOTRE CATALOGUE EST DISPONIBLE CHEZ | 
VOTRE REVENDEUR OU CHEZ ESAT CONTRE 20F 


EN TIMBRES (Remboursés à la première 


commande). 


| 


IMPRESSION : Programmation 

avancée de l'imprimante - 65 comman- 

ces RFX disponibles. 

IMPRESSION : Coss : 200,00 F 
Disc : 220,00 F 


TAPE LEADER : ce logiciel duplique 
vos bandes magnétiques avec un choix 
de 10 vitesses de sauvegardes. Durant la 
duplication, les renseignements sont affi- 
chés sur l'écran. 

CASS : 175 F TTC 

DISC : 205 F TTC 


VIEW TEXT : CASS 135 F TTC 


ACCESS II : Réalisez l'accès direct à 
l'aide des RSX disponibles, ensemble 
direct d'utilitaire d'exploitation du disc 


livré avec le soft 
DISC 390 FTTC 


———— NOUVEAUTÉ 
HERACLIOS (PCW 8256 et 8512) : 


Ensemble complet de gestion du disc. 
Plan du disc. Editeur de secteur. Forma- 
teur rapide. Déprotecteur basic. Edi- 
teur de mémoire. Récupérateur de 
fichiers effacés. Modification de cata- 
logue. Lecteur rapide (secteur endom- 
magé et/ou non standard). Lecteur A 
ou B. 


DISC 350 F TTC 


Abonnements 
MEPHISTO MAGAZINE 


(Routines de transferts) 
330 F 12 N° - Port gratuit 


| BON DE COMMANDE 
| Prévoir 25 F de port + 20 F pour le contre remboursement. | 
Nom : Prénom : LE 
Adresse : 
Logiciels commandés : 
| 


| 


£E S5 8€ 66 - suoneai] OXYZI 
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F— 


Abili 


Si la vogue n'est plus guère aux logiciels 
intégrés, la faute n’en revient pas à une 
Suekonque faiblesse du concept d’inté- 

ration, mais plutôt aux sociétés éditrices 
d logiciels se n'ont jamais pere le 
cahier des charges que partiellement. 
MIGENT, éditeur de ABILITY Plus, vient de 
réussir là où bien d’autres avaient, peu ou 
prou, échoué. 


L'idée de logiciel intégré est intéressante 
puisqu'elle permet aux entreprises de 
disposer d'une base de données, d’un 
tableau, d'un éditeur de texte et d’un 
grapheur et ce, en un seul logiciel. Bien 
sûr, il ne suffit pas de placer dans la 
livraison quatre logiciels de fonctions 
diverses pour obtenir un intégré. Encore 
est-il nécessaire de rendre possible 
l'échange des données entre les fichiers 
des différents programmes. C'est sur 
cette notion d'interactivité que nombre 
de logiciels achoppaient. C'est cette inte- 
ractivité qu'ont su organiser les auteurs 


de MIGENT. 


Si les avantages du procédé sont évi- 
dents - concision, cohérence, prix, for- 
mation réduite etc. - les inconvénients 
n'en sont pas moins présents et l’occu- 
pation de la mémoire par les 4 logiciels 


n'est pas le moinure. 


ES NS à 


BNNSÈMT 


LAPS 
SE 
# SR em 
ah  Coguif! 
ARC TS 


Plus 


C.A. AU ler TRIMESTRE. 


COMPARAISON 1986 / 1987 


ABILITY Plus, qui n'est pas le plus gour- 
mand, nécessite tout de même 384Ko 
de mémoire minimum. Le pourcentage 
de mémoire disponible est d’ailleurs affi- 
ché en permanence à l'écran. Toutefois, 
lorsqu'une application manque un peu 
trop de place, il est toujours possible de 
fermer un fichier inutilisé. ABILITY Plus 
réclame également un écran, une carte 
et une imprimante graphiques. Certaines 
applications ne peuvent tourner sur écran 
texte et les graphes ne sont pas obtenus 
à l’aide de caractères du jeu courant. La 
prise en compte d’un éventuel coproces- 
seur mathématique 8087 est automa- 
tique. 


L'installation et l'initialisation, qu'il est 
préférable de réaliser sur disque dur, ne 
posent pas de problème, hormis, sur les 
ordinateurs ne possédant pas de disque 
dur mais une mémoire virtuelle, l'adap- 
tation d’un fichier batch. Signalons, en 
outre, la prise en compte de la souris. 
Reste l'adaptation du logiciel à l’impri- 
mante ou au traceur qui est rapidement 
réalisée en choisissant parmi les nom- 
breuses marques et types proposés. Il 
existe également une table de traduction 
qui permet de recoder les caractères 
(utile notamment pour les caractères 
accentués). Tous les formats d'affichage 
sont modifiables. 


L'ECRAN DE CONTROLE 


Au lancement s'affiche un écran de con- 
trôle qui nous propose un catalogue actif. 
Sur la ligne supérieure figurent les diffé- 
rentes fonctions du logiciel : base, 
tableur, grapheur, éditeur (traitement de 
texte), comms, programmes et fichiers. 
Sous chacune des fonctions s'affichent 
les fichiers en rapport avec cette fonc- 


tion. Il suffit, à l’aide des flèches du pavé 
numérique, des touches de contrôle ou 
encore de la souris, de placer le curseur 
sur le fichier que l’on désire traiter pour 
que celui-ci soit chargé. Une case ‘’nour- 
veau’’ est sélectionnée de la même 
manière pour les cinq premières options. 


Sur un bandeau, en bas de l'écran, s’af- 
fichent le lecteur de disque actif, les 
témoins de touches, l'option DUO et le 
pourcentage de’ mémoire disponible. 
Sous ce bandeau, l'attribution des tou- 
ches de fonctions qui conservent leur 
usage quel que soit le programme qui 
fonctionne, ce qui assure une grande 
facilité de mémorisation et donc, d'ap- 
prentissage. F1 aide, F2 menu, F3 cher- 
cher, F4 éditer champ, F5 copier, F6 col- 
ler, F7 sélectioner, F8 calc/dessin, F9 
duo, F10 fin. C'est par F2 que l'on sélec- 
tionnera les sous-menus de chaque fonc- 
tion qui eux-mêmes ouvriront sur d’au- 
tres sous-menus. C'est par la touche F9 
duo que l’on mettra les différents docu- 
ments en liaison : inclusion d’un graphe 
dans un texte, par exemple. De plus, il 
est possible de présenter simultanément 
deux documents à l'écran (superposés 
ou juxtaposés), la touche F9 permet alors 
de passer de l’un à l’autre. 


Il est réellement agréable d'utiliser ABI- 
LITY Plus. On pourrait presque dire que 
ce logiciel fonctionne sous un intégrateur 
(toutefois sans fenêtres ni menus dérou- 
lants) tant la présence de l'écran de con- 
trôle est ressentie comme un pivot 
autour duquel s’articulent de façon par- 
faitement cohérente les différents 
logiciels. 


L'EDITEUR 


C'est à l'éditeur qu'aboutissent tous les 
travaux et c’est avec lui que se peaufi- 
neront les rapports. De beaux rapports, 
d’ailleurs, où figureront graphes et 
tableaux au milieu de paragraphes à l'im- 
pression agrémentée de caractères gras, 
soulignés, italiques, etc. L'éditeur est 
graphique, ce que l’on voit à l'écran est 
donc ce que l’on obtiendra sur le papier. 
Les pages sont matérialisées par des 
bandes épaisses, ce qui facilite la mise 
en page. On trouve dans ce traitement 
de texte les fonctions classiques : justi- 
fication, insertion, déplacement de blocs, 
interlignage et même un correcteur 
orthographique (mais pas syntaxique) en 
français ! Pas de césure, par contre. Il est 
impossible de réaliser du publipostage. 


Il est extrêmement facile d'inclure dans 
le texte des données du tableur, ou des 
graphes du grapheur. Ces données peu- 
vent même rester actives, c'est-à-dire 
qu'elles peuvent continuer à subir les 
effets d'une modification entreprise dans 
un autre programme. Seule réserve : le 
volume de texte est lié au volume de 
mémoire disponible. C'est sans doute 
pour cette raison que l’on nomme le pro- 
gramme, éditeur et non traitement de 
texte. 


LE TABLEUR 


ABILITY Plus offre 702 colonnes sur 
9999 rangées mais l’on se demande 
comment on peut exploiter totalement 
ces capacités, compte-tenu de la 
mémoire disponible ? Les cellules sont 
nommées ‘’champs””’. Cela résulte de la 
manière qu'a ABILITY Plus de considé- 
rer les données dans ses programmes. 
La clé de cette intégration réussie est 
précisément cette notion de ‘’champs”’. 
Quel que soit le programme (texte, cel- 
lule du tableur, graphe), toutes les uni- 
tés de données sont reconnues comme 
étant des champs, ce qui permet leur 
interchangeabilité et leur modification 
dans chaque programme quand on ne les 
a transformées que dans l’un d'eux. 


Le tableur, qui est fréquemment la pièce 
maîtresse des logiciels intégrés, dispose 
de fonctions très puissantes : fonctions 
mathématiques, logiques, trigonométri- 
ques où financières. Toutes les fonctions 
classiques d’un tableur sont présentes 
avec quelques ‘‘plus’’ comme les réfé- 
rences circulaires qui viennent complé- 
ter les références absolues et relatives ou 
le verrouillage des champs. 


LA BASE DE DONNEES 


Une base de données qui serait classique 
si elle ne bénéficiait pas de la possibilité 
d'importer des données des autres pro- 
grammes. Regrettons tout de même l’ab- 
sence de possibilité de programmation. 


Le point fort de cette base de données 
est sa capacité à lier deux fichiers pour 
en créer un troisième virtuel. Ce procédé 
permet ainsi, par exemple, de lier un 
fichier ‘’clients’’ et un fichier ‘‘’achats'’ 
pour obtenir, sur une même fiche, une 
facturation complète. 


Autre point intéressant, l'élaboration des 
masques de saisie bénéficie outre des 
fonctionnalités de l'éditeur, de la correc- 
tion orthographique. 


LE GRAPHEUR 


Avec le grapheur, nous disposons de 5 
types de représentations : simples bar- 
res (présentation horizontale ou verti- 
cale), barres empilées, lignes (courbes), 
camemberts et graphes orthonormées 
XY. 


La provenance des données est, bien sûr, 
multiple : clavier, ou tout champ existant 
(feuille de calcul, base de données). La 
présentation bénéficie de l'écran graphi- 
que et les caractères sont affichés en 
italique. 


COMMS 


Comms est un programme de commu- 
nication qui permet d'établir une liaison 
avec un autre ordinateur dans les mêmes 
locaux ou à l'extérieur par modem. Le 
paramétrage est aisé. 


COMPARAISON 1986 / 1987 


Lasanes Sam Couill Liurs 
V1 27408 


C.A. AU 1er TRIMESTRE 


PRESENTATION 


Il s’agit d'un programme externe qui per- 
met la présentation sur écran d'une suite 
de pages écrans où peuvent figurer du 
texte et des graphes de toute sorte. Ce 
programme est d'autant plus spectacu- 
laire qu'il travaille en musique |! De nom- 
breux airs en tous genres sont mémori- 
sés, y compris la marche funèbre de 
Chopin. Sans doute pour se réjouir de 
l'échec d'un concurrent ! 


MACROS 


Le programme met à la disposition de 
l'utilisateur une vingtaine de macros : 
fonction gosub, affichage de menu, 
attente, automatisation de fonctions 
diverses etc. Les macros préprogram- 
mées constitueront un bon exemple pour 
l'écriture de celles à venir. Les macros 
sont donc programmables mais ne cons- 
tituent, toutefois, qu’une maigre com- 
pensation de l'absence d'un vrai langage 
de programmation. 


CONCLUSION 


Cette première version de ABILITY Plus 
est assurément une réussite. Son utilisa- 
tion est très agréable et, dans ces con- 
ditions, comment ne pas céder quand, à 
ces arguments, s'ajoute celui, imparable 
et décisif, d’un coût que nous osons qua- 
lifier de modique ? 
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4 REVUES POUR LES PASSIONNES  Î 


CPC -— REVUE DES UTILISATEURS D'AMSTRAD : en vous abonnant, vous rece- 
vrez chez vous votre revue. Vous bénéficierez de réductions sur certains produits et vous 
recevrez gratuitement 1 n° hors-série tous les deux mois. 

AMSTAR : en avant première, toutes les nouveautés sur AMSTRAD - des programmes, 
des articles ! A la demande de nos lecteurs, nous prenons désormais les abonnements. 
PCompatibles MAGAZINE : la référence en matière d'initiation et de perfectionne- 
ment sur les "compatibles PC”. 

Attention, tous nos abonnés recoivent avant parution des souscriptions sur les nouveaux 
livres ! 


_J CPC AMSTRAD 11 numéros 180F 
[1 6 numéros 105F 
[] Abonnement essai 3 numéros 55F 
[] AMSTAR 11 numéros 100F 
[1] PCompatibles Magazine 11 numéros 200F 
[) Arcades 11 numéros 200F 


NOM: EL =. =. ee. ___ Prénom: SR na Une dd 


AdrÈSSE:--E:E- de unir 


ViIl@ tm Sn MR. ÆE 


Code postal -__ 


Date -——— —_— 
Je m'abonne à : 


Merci d'écrire en majuscules. Ci-joint un chèque libellé à l'ordre de : Editions SORACOM. 
Service Abonnement - BP 11 - 35170 BRUZ - Retournez le(s) bulletin(s) ou une photocopie. 


Signature 


PARTICIPEZ A CPC ! 


Remplissez soigneusement ce coupon et joignez-le à votre programme, sur cassette ou sur disquette. Envoyez le tout à : 
CPC 
La Haie de Pan 
35170 BRUZ 


Le programmeur : 


Nom : Prénom : Age : 


Adresse complète : 


Le programme : 


Nom : 


Taille : 


Support : 


Compatibilité (testée) avec : [] 464 


Catégorie : [] Jeu |] Utilitaire [ ] Educatif 


Périphériques utilisés : 


664 [] 6128 [] PCW 8256 


[1 PC 1512 [ PCW 8512 
RE 


Je soussigné, 
à une autre revue. 


Attestation sur l'honneur 
, déclare être l'auteur du programme ci-joint et ne l'avoir jamais proposé 


Le : / / à: 


Signature : 
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Chef de publicité 
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Fabienne JAVELAUD 

Distribué en Suisse par : 

SEMAPHORE - Tél. 022.54.1 1.95 

et en Belgique par : 

COMPUTER MARKET - 150 rue Antoine 
Dansaert - 1000 BRUXELLES - Tél. 513.53.58 


Recherche extension DKTRONIK + imprimante 
DMP 2000. Faire offre tél. 69.42.92.96, bur : 
42.85.60.97. Recherche contact sur Paris. 


Vends multiface 2 pour CPC 400F. Tél. 
53.20.66.52 après 19 h, demander Eric 


Vends Pagemaker francisé + doc. originale pour 
le CPC 6128, 350 F Tél. 74.94.48.50 


Serait prêt à acheter la K7 Rocky Horror Show à 
une valeur de 100F. Sylvain Berco, tél. 
39.78.93.19 


Echange caméra sonore 8, super 8 contre impri- 
mante ou lecteur de disquettes 5'’1/4. Tél. 
30.95.83.56 - 78406 Aubergenville. 


Urgent, vends CPC 6128 couleur t.b.e. (02/87) + 
joy + câble magnéto + nbrx logiciels (1MO) + 
livres + rev. 4000 F (v. 7000 F). Tél. 97.21.41.03 


Vends Imp. MCP 40, neuve 800 F + mon. mono, 
IBM, 400 F + orig. Textomat 200 F + orig. Her- 
cule 150 F. Tél. 43.01.84.97 après 19h. 


Vends 50 jeux originaux sur K7, 50 F les deux, liste 
sur demande. Chardon J. Mont Saxonnex, Le Mar- 
tinet 74130 


Vends Moniteur couleur Thomson + prise péritel 
1200 F (acheté 2000 F) ou échange contre DDI. 
Tél. 97.05.18.34 


Je traduis toutes vos notices angl. en français. Ala- 
gnou Patrick, av. Maréchal Joffre 31800 Labarthe 
de Rivière. 


SOS, cherche pers. ayant réalisé répondeur tél. du 
n° 20 et du n° 22 émulez minitel réalisation câble 
et circuit. J'ai K7. Guilbert J.Louis, 12 r. L. Arly 
62223 St Laurent Blangy tél. 21.55.17.55 


Vends CPC 464 couleur + 70 jeux dont Light 
Force, lkari + joystick pour 3000 F, cède 2500 F. 
Tél. 67.81.22.74 

Vends CPC 464 + jeux + livres + utilitaires + ral- 


longe + interface couleur + radio pocket 2200 F. 
Mialon Alain tél. 43.03.10.36 


Micronaute 


LE SPECIALISTE 
NANTAIS DU PC 


Revendeur qualifié conseil 


Me S.A.V. personnalisé 
e Contrat de maintenance 
e Logiciels - Livres 
e Location 


M Adresse : 

9, rue Urvoy de Saint Bedan 
44000 NANTES 

Tél. 40.69.03.58 


PETITES 
ANNONCES 


Vends CPC 464 couleur + DD1 + 64 K + jstk, 
nbr doc. + 1,5 Mo, jeux + log. prof + tur. Pasc. 
+ nbr prog. calc. Num : 4500 F - Tél. 65.67.10.67 
/61.40.99.13 


Echange Bounder, Tomahawk, Histoire d'or sur 
PCW. Tél. 94.68.25.65 (Franck) 


Vends program. Eprom + cartouche Eprom 16 K 
+ effaceur Eprom + 8x 27128 vierges, cause 
double emploi 800 F. Tél. 42.43.34.01 Paris. 


Urgent, vends/échange jeux (200) ou utilitaires 
cass. et disc. sur Amstrad. Lécuyer Christophe 8 
rue des Petits Sablons 27400 Acquigny, tél. 
32.50.24.79 


Suite achat Amiga, vends mes 60 disc 3’, 60 F 
pièce ou 500 F les 10. Tél. 47.90.64.13 


Tous les tirages du loto depuis l'origine ! 60 F/cas, 
90 F/disk CRT. M. Willemin 3 r. de Franche-Comté 
70000 Vesoul tél. 84.75.01.48 


Urgent cherche second drive pour 6128. Faire pro- 
position tél. 60.04.57.20 Eric, après 18 h. 


Tout le programme d'histoire-géographie de 3° en 
K7, 15 leçons 100F. Olivier 78.55.11.85 


septembre. 

Vends logiciels Hercule - Fer et Flamme, Jumpjet 
sur disk. Guy Griebel 33 rue de Lobsann 67250 
Merkwiller, tél. 88.80.78.02 


Vends CPC 464 mono + lecteur 3 P + jeux et uti- 
litaires sur cass. et disc + livres 3500 F environ. 
Moulun S. Tél. 29.75.95.57 

Vends K7 pièce de 30 à 60 F ou lot 8 K7 280 F 
ou éch. contre Commando sur K7. Contacter Chris- 
tophe tél. 94.73.70.51 (Var). 

Achète programmateur Eprom Jagot & Léon réf E 
107. Faire offre M. Régis J.N, 17 rue du Chenêt 
25230 Dasle tél. 81.34.45.05 

Vends ZX 81, 64 K + jeux + 23 livres + c. cor- 
resp. (1682 F) E 1600 F - Vends Canon XO7 + 


imp. 710 + ext. 8 K + 3CM 101/100/140 + 5 
cass. + liv. + FXbase. Martinez Tél. 30.55.11.49 


SON VIDÉO 
2, 2000 


MICRO 
AQUITAINE 


ATARI 


amsrRan  @RIC 


OLIVETTI 


GC commodore 


Compatibles IBM 


31, cours de l’Yser 

33800 BORDEAUX 

Tél.: 56.92.91.78 
Télex 572-421 
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La place réservée aux petites annonces est 
limitée. En conséquence, celles-ci passent 
dans leur ordre d'arrivée. Par contre, les peti- 
tes annonces farfelues sont systématique- 
ment rejetées... De même, comme il est peu 
probable qu'il existe des ‘’généreux dona- 
teurs’’ de matériels ou de logiciels, les peti- 
tes annonces faisant appel à ces philantro- 
pes ne seront insérées que si la place libre 
le permet. 

Seront refusées toutes les annonces visant 
à vendre ou échanger des listes ou copies de 
logiciels non garantis ‘‘d’origine’”, ainsi que 
toute annonce incitant au piratage. 

En conséquence, réfléchissez bien avant 
d'envoyer vos textes. 

Les petites annonces doivent impérativement 
nous parvenir sur la grille (découpée ou pho- 
tocopiée), le texte étant rédigé à raison d'un 
caractère par case. 

Enfin, toute annonce non accompagnée de 
timbres ne sera pas insérée. 


Vends CPC 664 coul. + imp. SP1000A + 39 disk 
pleins + nbx magazines, le tout : 5000 F. Tél. 
34.75.31.11, Olivier après 19h00 (dpt. 78). 


Vends pour Amstrad disquettes de jeux Elite (état 
neuf) + interieur (aventure), le lot : 200 F. Tél. 
20.05.25.40. 


Vends Amstrad CPC 464 année 86 + 90 log. + 
joystick Amstrad inusable + conseils pratiques. 
Prix à débattre. Tél. 79.83.10.67 ATB. 


Cherche clavier seul 6128 Qwerty. Tél. 
83.64.38.02 (Toul). 


Echange langage Lips et notice contre l'interprète 
ESAT software. ROUBERT - Route de Bordeaux - 
24200 Sarlat Lacaneda 464, 6128. 


Vends 6128 couleur TBE + jeux et util. + livres 
et revues : 4000 F. Tél. 88.92.59.68 de 10h00 à 
23h00. 


Toi qui m'as aidé pour l'affaire Sydney help. J'ai 
perdu ton adresse. David CHUPIN - 5, Parvis de la 
Bièvre - 92160 Antony. 


Vends Amstrad 464 mono : 1200 F. DDI1 : 
1200 F. Troniks 64 Ko : 300 F. Tél. 92.61.30.88 
le tout en excellent état. 


Vends Datacord (mémorise 600 pages minitel sur 
magnéto) : 250 F. Logs spécialisés Okimate 20 et 
Microline 182 : 120 F. Tél. 90.55.91.65. 


Vends ZX81 + 1 logiciel de jeu + 1 extension 
16Ko + magnétophone 800 F. Tél. 
61.86.71.13. 


Vends PCW 8512 2 drives imprimante + RS232C 
+ turbo Pascal tout garanti état neuf : 6500 F. 
Donne logiciel + disc Tél 28 29 02.14 


Bordeaux - Cannes - Avignon 


ASSISTANCE ET FORMATION 


Toutes les applications 


de votre micro : 
GESTION - COMPTABILITE 
PROFESSIONNELLES ET 


FAMILIALES 
257, rue Judaïque 
83000 BORDEAUX 


Tél. 56.24.05.34 
CREDIT VENTE PAR CORRESPONDANCE 


Vends HP 15 C. Tél. 39.58.64.85 


Vends CPC n° 15, 17, 18, 19, 23, 25 + Amstrad 
mag. 12, 14, 16, 33, 34: 9F chaque + HS :12F 
+ K7 Xexious, Batman : 35 F chaque. Tél. 
22.27.17.35 Jérôme. 


Vends CPC 664 couleur + jeux + livres + joys- 
tick, état neuf, le tout : 3000 F. Tél. 43.76.12.03, 
demander Sylvain, urgent. 


Cherche manuel livré avec DMP 2000 (original ou 
photocopie). Faire offres à P. VALENTINO - Hage- 
nauer STR4 — D6740 Landau RFA. 


Vends Amstrac CPC 464 couleur + IMP DMP1 + 
jeux + livres + joystick + utilitaires pour 3500 F. 
Tél. 21.86.10.48 après 19h00. 


Vends pour Amstrad, imprimante Fastext 80, 
valeur 2800 F, vendu : 2200 F + traitement de tex- 
tes sur disk. Patrice, tél. 73.63.72.58. 


Achète CPC 6128 TBE sans moniteur, prix intéres- 
sant. Faire offres M. Guy GRELET - 28700 Houville 
La Branche - tél. 37.25.72.64 HB. 


Vends nbx logiciels Amstrad originaux, liste sur 
demande. Réponse assurée. CHARRIER Patrice - 
Bussières et Pruns - 63260 Aigueperse. 


Affaire |! Vends Okimate 20 complète + rubans ; 
1 an, très bon état, prog. copie écran : 1309 F. Tél. 
46.05.42.08 après 18h00 Olivier. 


Vends Mercitel CPC2 + RS232C associée, neuf : 
1700 F. ROGUES Jacques - tél. 40.65.84.03. 


Stop ! Echange jeux ou utilitaires sur disk. Contac- 
ter Frank, tél. 29.31.93.11. 


Vends nombreux jeux pour CPC sur cassettes et 
disquettes. Pour renseignements, tél. 
60.70.16.41. 


Recherche CPC 664 vert avec une ou deux disquet- 
tes contre CPC 464 vert + 80 jeux et 1 joystick. 
Tél. 32.30.07.31 après 19h00. 


Cherche personnes désirant faire des parties 
d'Othello par correspond. Ecrire à DECOSSIN 
J.-P. - 29, rue d'Artois - 59000 Lilles. 


Vends tablet. graphique ou échange contre lecteur 
5''’ 1/4 ou imprimante. Faire offres au 
1.42.41.72.70 (le soir de préférence) Paris. 


Vends CPC 6128 coul. + imp. PD80 + 120 logi- 
ciels K7 et disk + joystick + livres, valeur 
15 000 F, vendu 8000 F. Tél. 69.43.10.44. 


Vous pouvez passer directement vos annonces sur le minitel 


ZA L 


Coupon à renvoyer accompagné de 4 timbres à 2,20 F à : 
SORACOM, La Haie de Pan — 35170 BRUZ 


Gagnez du temps ! Sur Minitel 36.15, tapez MHZ 


Photocomposition SORACOM - Photogravure BRETAGNE PHOTOGRAVURE 35170 BRUZ - Impression RFI (77) 
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Distribution NMPP - ISSN 02966689 


Chaque mois chez votre marchand de 
journaux. 


f 


-Vous avez des 
remarques, des 
suggestions ou des 
À critiques à formuler 
WE concernant le con- 
Mienu du présent 
“A numéro. 

LU Vous souhaitez 
voir traiter un sujet 
APT particulier dans un 
OR a prochain numéro 
EP de la revue. 


Ç #, 
+ D = 


L'équipe rédactionnelle de CPC est à 
votre écoute 24 heures sur 24, grâce 
à son serveur télématique. Composez 
T | | le 3615, code d'accès MHZ, choix 
ous 5 jeux sur ordinateurs, consoles et Messagerie, boîte CPC REDACT. 
minitels. 


NOM —_—_—_— — ___ Prénom -- ren 


Adresse - NS = 


Code postal _______ Ville 


Je désire recevoir 


[| Classeurs) THEORIC : 80F | [| Classeurs) CPC : 60F 
[|__| Classeur(s) AMSTAR : 60 F | | Classeur(s) MEGAHERTZ : 80 F 
F4 Classeur(s) PCompatibles Magazine : 60 F 


Signature 


Ct-joint chèque de  -_________ F aunomdes Editions SORACOM - La Haïe de Pan - 35170 BRUZ 


Attention : les abonnements cassettes et disquettes ne sont pas rétroactif. 


NOUVEAUTES 


+ port 10% 


AMSTAR n° 1 épuisé 

[ Compilation CPC 1-2-3-4 

[] La pratique des imprimantes 
Michel ARCHAMBAULT 

[1 Apprenez l'électronique sur AMSTRAD 
P. BEAUFILS & B. DESPERRIER 


70F 
95 F 


95 F 


LIVRES 
+ port 10% 


7] Mieux programmer AMSTRAD 
Communiquez avec AMSTRAD 

D. BONOMO - E. DUTERTRE 

[] Jouez avec AMSTRAD — KERLOCH 
[] Programmes utilitaires pour AMSTRAD 
Michel ARCHAMBAULT 

O L'Univers des PCW -— Patrick LEON 
Cassette 

[] Communiquez avec AMSTRAD 
Disquettes 

ON L'Univers du PCW — Patrick LEON 

[1 Communiquez avec Amstrad 


85F 


90 F 


48F _ 


85 F 
119F 


190 F - 


150 F 
250 F 


A:TOTAL 


B:PORT 10% ___ 


A + B TOTAL GENERAL 


ANCIENS NUMEROS 
Franco de port 


Attention, n° 1 à 6, 7, 12, 14, 15 et 21 épuisés 


[ 8,9,10,11,13, 16, 17, 18, 
20, 22, 23, 24, 25, 26 
[] Hors série n° 1 avec cassette 


NOM : 


Adresse : 


Code postal : 


25 F 
47 F 


Date : 


Merci d'écrire en majuscules. 
Ci-joint un chèque libellé à l'ordre des 
COM - La Haie de Pan — 35170 BRUZ. 


REPORT TOTAL GENERAL A + B 


[ Hors série n° 2 sans cassette 
[ Hors série n° 3 sans cassette 
[ Hors série n° 4 
[O Hors série n° 5 
O Hors série n° 6 


Entourez le (ou les) numéro(s) commandé(s). 


CASSETTES 
Franco de port 

Cassettes n° 1, 2, 14, 17, 18 épuisées 

1 cassette représente un numéro 

[1 abonné 

[1 non abonné 

[ abonnement cassettes (11 n°) 

Je commande les cassettes n° 


13F 
15F 
15F 
15F 
15F 


45F 
55 F ______. 
450 F 


DISQUETTES 
Franco de port 


1 disquette contient 2 n° consécutifs de CPC 


— Disquette n° 1 comprend CPC 1 et 2 

— Disquette n° 2 comprend CPC 3 et 4 

— Disquette n° 3 comprend CPC 5 et 6 

— Disquette n° 4 comprend CPC 7 et 8 

— Disquette n° 5 comprend CPC 9 et 10 

— Disquette n° 6 comprend CPC 11 et 12 
— Disquette n° 7 comprend CPC 13 et 14 
— Disquette n° 8 comprend CPC 15 et 16 
— Disquette n° 9 comprend CPC 17 et 18 
— Disquette n° 10 comprend CPC 19 et 20 
— Disquette n° 11 comprend CPC 21 et 22 
— Disquette n° 12 comprend CPC 23 et 24 
— Disquette n° 13 comprend CPC 25 et 26 
— Disquette n° 1 HS comprend CPC 1 HS 
— Disquette n° 2 HS comprend CPC 2HS 
— Disquette n° 3 HS comprend CPC 3HS 
— Disquette n° 4 HS comprend CPC 4HS 
— Disquette n° 5 HS comprend CPC 5 HS 
— Disquette n° 6 HS comprend CPC 6HS 
[] abonné 110 F 
[ abonnement disquettes (6) 
Je commande les disquettes n° 


Total général franco Po en sus 10 % pour envois par avion 


Ville : 


Signature : 


[] non abonné 140 F 


600 F 


Editions SORACOM. Retournez le(s) bulletin(s) ou une photocopie à : Editions SORA- 


AVANT- FRENIERE 
TOUTES LES 
NOUVEAUTES 


LA COULEUR C’EST LA VIE 


MERCITEL ss 


Les 8 COULEURS 
du MINITEL sur 
PC 1512 AMSTRAD 


PCI “GRAND PUBLIC” 


e COULEUR les 8 couleurs du Minitel 
e Emulation Minitel 


e Mailing à partir de l’annuaire électronique 


e Le câble de liaison au Minitel 


890 F e Le logiciel 
TTL e Le livre d'initiation 


PC2 “MATRA à M.E.R.C.I.” La Puissance II 
COULEUR les 8 couleurs du Minitel 


e Annuaire personnel avec codes postaux 


e Mailing à partir de l'annuaire électronique 


e Procédures de connexion automatique 


Accès au réseau Transpac - Télex via serveur 


o 
e Calcul des temps de communication 
Ë 


? 990 F Compatibles Hayes - Transfert fichier avec Open Access, 
HT Symphony, Framework II, Crosstalk, Xmodems, etc... 


A7 M ER. GX. 


Maintenance Electronique Reconditionnement Construction Informatique 
Rue Ampère - Z.I. Ingré - 45140 ST JEAN DE LA RUELLE Æ& 38.43.11.83 


